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GENERAL  PURPOSE  DATA  CONVERSION  PROGRAMS  FOR  THE  PDP-I2  COMPUTER 


INTRODUCTION 

The  two  programs  described  here  are  a direct  result  of  a change 
in  the  batch  processing  system  used  at  the  USAF  School  of  Aerospace 
Medicine.  For  several  years  a Philco  2000  computer  was  used  to  pro- 
cess analog-digital  (A/D)  data  that  had  been  converted  by  a Consoli- 
dated Systems  Corporation  MicroSadic  A/D  converter.  With  the  change- 
over to  an  IBM-360/65,  our  A/D  converter  became  incompatible.  We  then 
obtained  a PDP-12  computer  with  a TU-10  tape  transport  as  a replacement 
to  the  old  conversion  system. 

The  A/D  conversion  program  was  written  first  but  with  it  came  the 
need  for  a checkout  procedure  and/or  program.  Thus  the  digital-analog 
(D/A)  conversion  program  began  to  emerge.  Written  first  as  just  a tool 
to  check  out  the  A/D  program,  it  soon  became  a means  of  looking  at 
problem  segments  of  data  as  well.  Both  programs  have  undergo  e a 
number  of  revisions;  often  a change  in  one  created  the  need  for  a 
change  in  the  other.  Thus  far  we  have  been  extremely  pleased  with  the 
system  that  has  evolved  and  feel  that  we  have  a much  more  flexible 
and  reliable  system  than  before. 

This  report  discusses  the  capabilities,  limitations,  and  opera- 
tion of  each  program;  lists  the  hardware  and  software  requirements; 
and  describes  in  detail  the  tape  format. 

HARDWARE  AND  SOFTWARE  REQUIREMENTS 

The  A/D  and  D/A  programs  require  the  following  hardware  devices 
to  be  fully  functional  as  described. 

1 PDP-12  with  8K  storage 

2 AA-50  D/A  converters 

[ • 

1 KW12-A  clock 
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1 KF12B  automatic  priority  interrupt 

1 ASR-33  teletype 

1 VR14  scope 


2 TU-10  magnetic  tape  transports 


1 TC-58  tape  controller 


1 Datum  time  code  translator,  model  9310 
1 Datum  tape  search,  model  9241 

Both  programs  operate  under  the  control  of  the  KF12B  automatic 
priority  interrupt  (API).  The  need  arose  within  the  A/D  program  to 
disable  the  teletype  interrupts  while  the  API  is  enabled,  resulting  in 
a slight  modification  to  the  PDP-12  hardware  which  is  explained  in 
the  section  "Analog-Digital  Conversion  Program."  Another  modification 
was  made  to  the  PDP-12  to  change  the  full-scale  voltage  range  from 
±1.0  volt  to  +1.414  volts,  the  full-scale  voltage  range  of  an  analog 
tape  signal. 

Both  the  A/D  and  D/A  programs  were  written  in  DIAL  MS  and  reside 
in  the  lower  4K  of  memory.  Both  use  the  entire  upper  4K  to  double 
buffer  data;  LINK  Fields  4 and  5 serve  as  one  data  buffer  and  LINC 
Fields  6 and  7 serve  as  the  other.  A quest ion-and-answer  display  sub- 
routine is  used  to  display  the  question-and-answer  frames,  and  the  A/D 
program  uses  a modified  version  of  the  Digital  Equipment  Corporation 
(DEC)  TU-10  tape  handler. 


ANALOG-DIGITAL  CONVERSION  PROGRAM 

The  A/D  conversion  program  (Appendix  A)  has  the  capability  to 
digitize  from  2 to  16  channels  of  analog  signals  and  store  the  results 
on  file-oriented  IBM  compatible  9-track  tape.  For  each  file,  the  user 
may  assign  identification  parameters,  choose  the  number  of  channels, 
specify  the  sampling  frequency  (within  certain  limitations) , and  either 
manually  or  with  an  external  logic  level,  start  and  stop  digitized 
segments.  Also,  if  the  analog  signals  are  from  analog  tape  with 
standard  IRIG-B  time  code,  the  user  may,  either  manually  or  with  paper 
tape  via  the  teletype,  specify  to  the  program  start  and  stop  times  and 
a command  to  digitize  a particular  data  segment.  Additional  data  files 
may  be  added  during  successive  digitizing  sessions. 

The  program  itself  is  easy  to  operate.  The  user  must  have  only 
enough  knowledge  of  DIAL  MS  to  load  the  DIAL  Monitor  and  then  load  the 
program  from  LINCtape.  Once  the  program  is  in  memory  and  running,  the 
VR14  Scope  will  display  the  first  of  several  frames  with  instructions 
and  questions  to  be  answered  by  the  user. 

Frame  1 : 


ANALOG  TO  DIGITAL 
CONVERSION  PROGRAM 


(TYPE  LINEFEED  TO  CONTINUE) 


X 


Self-explanatory. 

Frame  2: 

IS  THE  DIGITAL  TAPE  TRANSPORT 
THE  TU-10  OR  THE  DATUM? 

(TYPE  T OR  D)  . - 
IS  THE  A/D  TAPE  NEW  OR 
USED?  (TYPE  N OR  U).  - 
A/D  REEL  NO.  

In  our  laboratory  we  have  a second  PDP-12  with  a Datum  tape  con- 
troller and  Wang  tape  transport.  This  option  specifies  the  proper 
software  for  the  selected  tape  controller. 

If  the  A/D  tape  contains  previously  digitized  data  that  the  user 
wishes  to  retain,  he  may,  by  specifying  a "U,"  cause  the  program  to 
position  the  tape  immediately  past  the  last  end-of-file  (EOF)  mark. 
This  positioning  is  done  after  the  last  quest ion-and-answer  frame 
has  been  completed. 

When  the  A/D  tape  is  processed  on  the  IBM-360,  the  reel  number 
must  be  specified  and  must  match  with  the  number  entered  here.  It  is 
important  that  this  entry  be  correct. 

F rame  3 : 

EXPERIMENTER  

EXPERIMENT  ID  

PROJECT  NUMBER  

WILL  CHANNEL  0 BE  USED  AS  AN  EDIT  CHANNEL? 

(TYPE  Y OR  N)  - 

NUMBER  OF  CHANNELS  INCLUDING  EDITS 
(02  - 16)  - - 

RUN  SERIAL  NUMBER  

STARTING  GROUP  NUMBER  


/ 
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ANALOG  REAL  TIME  MULTIPLIER  - - 


SAMPLING  FREQUENCY  - 


1 . 400  kHz 

2.  100  kHz 

3.  10  kHz 

4.  1 kHz 

5.  100  Hz 

6 . EXTERNAL 

DIVIDED  BY  (1-4095)  


The  Experimenter  and  Experiment  ID  entries  may  contain  up  to  16 
characters  each;  the  contents  should  be  self-explanatory. 

The  Project  Number  is  a locally  generated,  4-character  cost 
accounting  code  that  accompanies  each  project. 

By  typing  a "Y",  the  user  may  specify  that  channel  0 be  used  as 
an  Edit  Channel.  The  state  of  each  of  the  12  sense  lines  is  inter- 
rogated each  time  digital  samples  are  taken  (with  each  clock  inter- 
rupt). For  each  sense  line  that  is  high,  the  corresponding 
accumulator  bit  is  set,  creating  an  edit  word  that  is  stored  the  same 
as  a digital  sample  would  be.  This  edit  word  gives  the  user  the 
ability  to  preserve  the  state  of  12  binary  signals  simultaneously  with 
each  sample  of  data.  These  signals  may  be  from  any  device  that  gives 
a "HI"  state  of  +3  volts  and  a "LO"  state  of  0 volts. 

The  Number  of  Channels  needs  little  explanation  except  that  a 
leading  0 should  be  included  if  the  number  is  less  than  10. 

The  Run  Serial  Number  is  an  8-digit  number  unique  to  this  file 
in  the  form  60851105:  the  first  digit  denotes  the  year  1976;  the  next 
three  digits,  the  Julian  date;  and  the  last  four,  the  24-hour  time 
of  day.  With  the  IBM-360  software  that  has  been  created  to  handle 
A/D  tapes,  this  is  the  number  by  which  each  file  is  referenced. 

The  Starting  Group  Number  may  be  any  number  from  1 to  4095; 
since  the  maximum  possible  group  number  within  a file  is  4095,  it  is 
advisable  to  start  with  a smaller  number.  This  option  is  provided 
for  those  who  may  want  to  keep  the  group  numbers  from  one  file  to 
the  next  in  sequence. 

The  Analog  Real-Time  Multiplier  entry  serves  mainly  as  a record 
of  the  digitizing  setup.  As  an  example,  if  the  data  to  be  digitized 
is  from  an  analog  tape  recorded  at  a speed  of  3-3/4  inches  per  second 
(ips)  and  if  the  tape  is  to  be  reproduced  at  a speed  of  15  ips  at 
the  time  of  digitizing,  then  it  will  be  digitized  at  4-times  real 
time;  thus  the  number  04  would  be  entered  here.  The  number  itself  has 
no  function;  it  serves  only  as  a record,  just  as  the  Experimenter  and 
Experiment  ID  entries. 
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The  Sampling  Frequency  is  determined  by  making  two  entries.  The 
first  entry  specifies  to  the  KW12-A  clock  which  time  base  is  to  be 
used,  or  the  rate  at  which  the  count  pulses  are  provided  to  the 
counter  register.  The  second  entry,  called  the  time-base  divisor, 
specifies  to  the  counter  register  the  number  of  count  pulses  required 
for  a clock  interrupt.  For  example,  if  a sample  frequency  of  250 
samples  per  second  is  desired,  the  first  entry  would  be  4 and  the 
second  entry,  0004.  If  the  Analog  Real-Time  Multiplier  were  02,  the 
real-time  sampling  frequency  would  be  125  samples  per  second. 

Frame  4: 


CHANNEL  INFORMATION 

00 

01 

02 
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Here  the  contents  of  each  channel  should  be  described  as  accu- 
rately as  possible  within  the  16  allotted  characters. 

Prior  to  typing  the  LINEFEED  that  signals  the  end  of  this  ques- 
tion frame,  the  digital  tape  should  be  mounted  on  the  TU-10  with  the 

Unit  Select  switch  set  to  unit  0.  The  tape  should  be  queued  and 

positioned  to  the  load  point  and  the  On-Line  switch  set  to  the  on-line 
position.  Now,  when  the  LINEFEED  is  typed,  all  the  information 
specified  in  the  last  three  frames  is  converted  to  EBCDIC  format  and 
stored  in  the  first  block  of  the  data  file  as  a header  block.  If  a 
used  tape  is  specified,  the  program  spaces  forward  and  positions  the 
tape  immediately  prior  to  the  last  EOF  mark  and  then  writes  the 
header  block. 

The  program  is  now  waiting  to  digitize  a group  of  data.  To 
start  digitizing  a group  of  data,  bring  sense  line  0 high  or  to  a 
logic  one;  to  stop  digitizing,  bring  it  low  or  to  a logic  zero.  This 
can  be  done  with  a clean  logic  signal  from  any  source  or  from  a 

debounced  switch.  Digitizing  control  may  also  be  via  the  Datum  Time 

Code  Translator  and  Tape  Search  units.  The  controller  should  be  in 
the  Remote  mode,  and,  provided  the  switches  describing  the  tape  speed 
are  set  correctly,  the  analog  tape  unit  may  be  controlled  by  the  A/D 
program. 

Nine  commands  are  available;  three  of  which  will  cause  the  pro- 
gram to  digitize  data.  To  use  these  commands  type  a LINEFEED 
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followed  by  the  2-lettor  mnemonic  command,  followed  by  a space,  then 
the  start  and  stop  times  separated  by  a dash,  then  a RETURN. 


Example : 
— > SC, 


2:56-1:00:25 


2 


The  space,  dash,  and  colons  are  all  critical.  They  are  recognized 
as  delimiting  characters  by  the  computer  and  must  be  used.  Notice 
that  the  first  time  given  does  not  specify  00  hours;  you  do  not  have 
to  type  leading  zeros,  i.e.,  type  only  the  times  required. 

Next  is  a list  of  the  commands  and  their  functions. 

^ SC i , time  A - time  B 


2 


Single  Cycle  - The  tape  advances  forward  in  search  mode  to 
time  A,  then  the  data  between  times  A and  B is  digitized  as 
one  group.  The  analog  tape  stops  at  time  B. 


RC 


time  A - time  B 


2 


Recycle  - The  tape  advances  forward  in  the  search  mode  to 
time  A,  then  the  data  between  times  A and  B is  digitized  as 
one  group.  Then  the  analog  tape  reverses  in  fast  reverse 
and  reproduces  between  times  A and  B again.  This  cycle 
continues  until  another  command  is  given. 


CN, 


time  A - time  B 


2 


Continuous  - The  tape  reproduces  forward,  and  the  data 
between  time  A and  B is  digitized  as  one  group  when  it  is 
encountered.  The  analog  tape  continues  to  reproduce  for- 
ward until  another  command  is  given. 


SS 


time  A 


■2 


Search  to  Start  - The  tape  searches  forward  and  stops 
positioned  just  before  time  A. 


FD 


2 


Forward  - The  tape  reproduces  forward  until  another  command 
is  issued. 


RV 


2 


Reverse  - The  tape  reproduces  backward  until  another 
command  is  issued . 


I 


FF 


l 

Fast  Forward  - The  tape  advances  fast  forward  until  another 
command  is  issued. 


Fast  Reverse  - The  tape  reverses  in  fast  reverse  until 
another  command  is  issued. 

Stop  - The  tape  motion  stops  regardless  of  the  digitizing 
state  or  any  previous  command. 

A list  of  these  digitizing  commands  can  be  prepared  in  advance  and 
placed  on  paper  tape,  then  read  in  at  the  time  of  digitizing. 

When  a command  is  given  that  will  cause  digitizing  to  take  place, 
the  Datum  tape  search  unit  must  be  allowed  to  complete  the  entire 
cycle  of  operation  before  another  tape  command  can  be  accepted.  The 
teletype  interrupt  must  be  disabled  while  this  cycle  is  taking  place, 
or  it  will  continue  to  accept  characters  from  the  paper  tape.  Since 
the  machine  is  normally  structured  in  such  a way  that  the  teletype 
interrupt  cannot  be  disabled  while  the  API  is  on,  a hardware  modifi- 
cation was  required  to  provide  this  feature. 

When  the  program  begins  a group  of  data,  relay  0 of  the  6 DPDT 
relays  is  switched  on.  When  the  group  ends,  the  relay  is  switched 
off.  In  our  laboratory  this  function  is  primarily  used  to  start  and 
stop  an  8-channel  oscillograph  recorder. 

When  all  the  data  for  a particular  file  has  been  digitized,  the 
file  should  be  terminated  either  by  typing  CTRL  F for  EOF  or  CTRL  T 
for  EOT.  Typing  a CTRL  F indicates  that  the  data  file  is  ended  but 
another  is  to  be  created,  and  an  additional  question  frame  appears  on 
the  screen. 

Frame  5: 

WILL  THE  PARAMETERS  FROM  THE  PREVIOUS  FILE  BE  USED  AGAIN: 

IF  SO  TYPE  A NEW  RUN  SERIAL  NUMBER  

AND  STARTING  GROUP  NUMBER  

If  the  Experimenter,  Experiment  ID,  Number  of  Channels,  Sampling 
Frequency,  Channel  Contents,  etc.,  are  to  be  the  same  for  the  next 
file,  then  by  inserting  the  new  Run  Serial  Number  and  Starting  Group 
Number  the  user  can  avoid  answering  the  questions  in  Frames  3 and  4 
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again.  However,  by  typing  only  a LINEFEED,  the  program  returns  to 
Frame  3,  and  the  entire  procedure  from  that  point  on  will  be  the  same 
as  described  above. 

Typing  a CTRL  T terminates  the  digital  tape.  The  program  writes 
an  EOT  mark,  rewinds  the  tape,  and  returns  control  to  the  DIAL 
Monitor . 


SPECIFICATIONS 
Sampling  Interval 

The  sampling  interval  is  provided  by  the  KW12-A  clock  and  is 
program  selectable  by  specifying  the  time  base  and  presetting  the 
clock  counter  register  during  Frame  3 of  the  question-and-answer 
session.  The  program  is  limited  to  a maximum  sampling  frequency  of 
3500  samples  per  second/channel  when  in  the  2-channel  mode,  and  to 
700  samples  per  second/channel  when  in  the  16-channel  mode.  Notice 
that  maximum  sampling  frequency  is  not  directly  proportional  to 
number  of  channels  digitized.  The  reason  for  this  is  that  the  TC-58 
tape  controller  has  a maximum  transfer  rate  of  36  kHz,  each  transfer 
requiring  three  machine  cycles  to  complete.  Thus,  as  the  sampling 
interval  gets  smaller,  the  clock  interrupts  run  a greater  risk  of 
interference  by  the  tape  controller  as  it  steals  cycle  time  from  the 
central  processor.  See  Appendix  B for  a list  of  maximum  sampling 
frequencies . 

Optionally  the  time  base  may  be  provided  from  an  external  source 
via  the  Schmitt  Trigger  input.  This  is  ideal  in  cases  where  sampling 
is  to  be  asynchronous  or  where  the  sampling  interval  desired  cannot  be 
provided  with  any  combination  of  the  time  base  and  clock  counter  register. 

With  the  use  of  an  external  time  base,  the  program  is  not  limited 
to  a minimum  sampling  frequency. 


Skew 

The  program  enables  the  fast  sample  function  so  that  when  each 
SAM  command  is  given,  the  results  of  the  previous  SAM  command  are 
delivered  to  the  accumulator.  When  the  transfer  is  complete,  the  new 
channel  number  is  specifier  and  the  new  conversion  is  initiated. 

There  is  a 14.5  psec  delay  from  the  time  this  new  conversion  is 
initiated  until  the  sample  is  assembled  in  the  converter  buffer. 
Therefore,  there  is  a constant  skew  of  14.5  psec  from  one  channel  to 
the  next.  Total  skew  across  all  channels  is  a function  of  the 
number  of  channels;  it  will  be  only  14.5  psec  for  two  channels  and 
218  psec  from  the  first  to  the  last  channel  when  in  the  16-channel 
mode.  This  might  be  somewhat  disturbing  unless  you  consider  that  in 
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In  the  2-channel  mode,  14.5  usee  is  only  5%  of  the  sample  interval 
when  sampling  at  the  maximum  frequency  of  3500  samples  per  second. 

Also,  it  should  be  mentioned  here  that  during  this  14.5  usee 
delay,  the  number  (the  value  of  the  previous  conversion)  in  the 
accumulator  is  converted  from  one’s  complement  to  two's  complement 
and  stored  in  an  intermediate  buffer  area.  Also,  if  it  is  one  of  the 
first  12  channels,  it  is  converted  back  to  an  analog  signal  with  the 
D/A  converter.  This  provides  the  user  with  the  ability  to  monitor 
the  digital  signal  as  it  is  being  sampled. 


Resolution  and  Voltage  Range 

Since  most  of  the  A/D  conversion  work  in  our  laboratory  involves 
signals  from  analog  tape,  it  was  decided  that  the  10  bits  available 
from  the  A/D  converter  should  represent  a full-scale  analog  tape 
signal  as  mentioned  earlier.  Thus  we  have  +512  digital  counts  repre- 
senting +1.414  V.  This  yields  2.76  mV  per  bit  of  resolution. 


TAPE  FORMAT 

A digitized  tape  is  made  up  of  one  or  more  data  files  with  each 
file  containing  at  least  one  group.  A group  consists  of  one  or  more 
blocks,  the  length  of  which  is  determined  by  the  number  of  digitized 
channels.  See  Appendix  B for  a list  of  block  lengths.  The  first 
group  of  each  file  is  only  one  block  long,  and  contains  header  infor- 
mation in  EBCDIC  format  pertinent  to  that  data  file.  This  header 
block  is  always  numbered  as  group  number  0.  The  next  group  will  be 
the  first  to  contain  actual  data  values.  A file  is  terminated  with 
an  EOF  mark  and  an  extended  record  gap.  A tape  is  terminated  with 
an  end-of-tape  (EOT)  mark  that  consists  of  two  consecutive  EOF  marks. 

Digitized  values  are  stored  on  tape  in  frames.  One  frame  con- 
sists of  the  digital  values  taken  from  each  analog  channel  for  a 
particular  clock  interrupt.  Thus,  if  the  program  is  operating  in 
the  2-channel  mode,  the  first  data  frame  will  contain  digital  values 
from  channel  0 and  channel  1.  The  first  frame  of  each  block  contains 
the  group  number,  and  the  second  frame  begins  the  data. 

One  digitized  value  is  stored  on  tape  as  two  8-bit  bytes.  Since 
the  PDP-12  word  length  is  12  bits,  the  program  breaks  the  value  up  and 
stores  the  high-order  4 bits  in  one  byte  and  the  low-order  8 bits  in 
the  next  byte.  Therefore,  in  the  2-channel  mode,  one  data  frame  con- 
sists of  4 bytes. 
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Header  Block  Layout 


te  Number 

Content 

Remarks 

0-1 

020 

Group  0:  always  denotes  header  block. 

000 

(The  bit  that  is  set  causes  the  group 
number  to  read  4096  + group  II.  This 
is  a positive  number  larger  than  the 
A/D  converters  can  produce  and  can  be 
easily  detected  from  actual  data.) 

2-3 

000 

Block  count;  resets  with  each  file. 

001 

therefore,  the  header  block  is  always 
block  number  1. 

4 

012 

A nonprintable  EBCDIC  character  used 
as  a filler. 

5 

T or  D 

Denotes  the  tape  transport  used — the 
Datum  or  the  TU-10. 

6 

012 

Filler 

7 

N,  U,  or  C 

For  new,  used,  or  copied  tape 

8 

012 

Filler 

9-14 

Tape  No. 

(HB  1109, 
etc. ) 

6 digits 

15 

012 

Filler 

16-17 

000 

18 

012 

Filler 

19-34 

Experimenter 

16  digits 

35 

012 

Filler 

36-51 

Experiment 
Identif . 

16  Digits 

52 

012 

Filler 

53-56 

Project 

The  local  project  classification 

Number 

number,  4 digits. 

57 

012 

Filler 

L , J 


— ~ 


58 

Y or  N 

Yes  or  No  if  channel  0 is  to  be  used 
as  a channel  of  edits. 

59 

012 

Filler 

60-61 

No . of 

2 digits 

Channels 

(2-16) 


62 

012 

Filler 

63-70 

Not  used 

71 

012 

Filler 

72-75 

Starting  Gp 

No.  (1-4095) 

4 digits 

76 

012 

Filler 

77-78 

Real-time 

Multiplier 

2 digits 

79 

012 

Filler 

80 

Time-Base 

Code  for 
Sampling 
Frequency 

1 digit 

81 

012 

Filler 

82-85 

Time-Base 

Divisor 

(1-4095) 

4 digits 

86 

012 

Filler 

87 

000 

Blank 

88 

012 

Filler 

89-104 

Channel  0 Description 

105 

012 

Filler 

106-121 

Channel  1 Description 

122 

012 

Filler 

123-138 

Channel  2 Description 
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139 

012 

Filler 

| 

140-155 

Channel 

3 Description 

156 

012 

Filler 

157-172 

Channel 

4 Description 

173 

012 

Filler 

174-189 

Channel 

5 Description 

190 

012 

Filler 

191-206 

Channel 

6 Description 

207 

012 

Filler 

1: 

208-223 

Channel 

7 Description 

224 

012 

Filler 

225-240 

Channel 

8 Description 

1 1 

/ 

241 

012 

Filler 

242-257 

Channel 

9 Description 

258 

012 

Filler 

259-274 

Channel 

10  Description 

275 

012 

Filler 

276-291 

Channel 

11  Description 

292 

012 

Filler 

293-308 

Channel 

12  Description 

309 

012 

Filler 

310-311 

175 

A unique  character  signaling  the  end 
of  the  channel  descriptions. 

312-1009 

Unassigned 

The  following  are  in  binary  format  and  are  used  only  in  the  A/D  and 
D/A  programs. 


1 A 


1010-1011  Record  length  or  block  size. 

1012-1013  Starting  address  of  the  block. 

1014-1015  Number  of  bytes  skipped  within  a LINC  Field  before 

a record  begins. 

1016-1017  Starting  address  of  first  frame  of  data. 

1018-1019  Starting  address  of  group  numbers. 

1020-1021  The  negative  number  of  channels. 

1022-1023  The  number  of  channels. 


Data  Block  Layout 

Example  of  a tape  block  with  three  channels  of  data. 


Frame  341 — 
Last  frame 
of  preced- 
ing block 


Frame  1 


Frame  2 


Frame  3 


Channel  0 xxx 

XXX 

Channel  1 yyy 

yyy 

Channel  2 zzz 

zzz 

InterRecord 

Gap 

'Group  020 

Number  005 

Block  006 

Count  377 

Group  020 

, Number  |0g5 

'Channel  0 xxx 

xxx 

Channel  1 yyy 

yyy 

Channel  2 zzz 

‘ zzz 

Channel  0 xxx 

xxx 

Channel  1 yyy 

yyy 

Channel  2 zzz 


High  Order  Byte 

Low  Order  Byte 

HOB 

LOB 

HOB 

LOB 


In  this  case,  Group  Number 
equals  5. 

In  this  case.  Block  Count 
equals  1791. 
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DIGITAL- ANALOG  CONVERSION  PROGRAM 


The  D/A  conversion  program  (Appendix  C)  provides  essentially  the 
inverse  of  the. A/D  process.  It  has  the  capability  of  reading  a 
digitized  tape  created  by  the  A/D  program  and  converting  up  to  12 
consecutive  channels  back  to  analog  form.  The  program  prints  a map 
of  the  digitized  tape,  via  the  teletype,  that  contains  for  each  data 
file  the  header  block  information  inserted  at  the  time  of  digitizing 
as  well  as  each  group  number  and  starting  block  number  of  each  group. 
Just  as  with  the  A/D  program,  the  user  may  specify  to  the  D/A  program 
the  frequency  of  the  conversion  process.  The  program  can  also  make 
a duplicate  tape  if  the  user  wishes. 

As  with  the  A/D  program,  the  user  must  load  the  Dial  Monitor  and 
then  load  the  program  from  LINCtape.  Once  the  program  is  in  memory 
and  running,  the  scope  will  display  the  first  of  two  frames. 

Frame  1 : 

DIGITAL  TO  ANALOG 

RETURN  PROGRAM 

(TYPE  LINEFEED  TO  CONTINUE) 

Self  explanatory. 

Frame  2: 

WILL  A COPY  BE  MADE? 

IF  SO  TYPE  C.  - 

AND  NEW  REEL  NO.  

RETURN  FREQUENCY  - 
(FRAMES  PER  SECOND). 

1.  4 00  kHz  2.  100  kHz  3.  10  kHz  4.  1 kHz 

5.  100  Hz  6.  EXTERNAL 

DIVIDED  BY  (1-4095)  

If  the  user  wishes  to  have  a duplicate  tape,  he  should  type  a 
"C"  followed  by  the  duplicate's  reel  number.  When  the  program  begins 
the  conversion  process,  it  will  read  from  unit  0 and  duplicate  onto 
unit  1.  An  exact  duplicate  will  be  made  with  two  exceptions:  That 
area  of  the  header  block  that  normally  contains  an  "N"  or  ”U’’  to 
specify  a new  or  used  tape  will  now  contain  a ”C”  to  specify  a copied 
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tape;  that  area  that  contains  the  A/D  reel  number  will  contain  the 
duplicate  reel  number. 

The  entries  for  the  Return  Frequency  are  exactly  like  those  for 
the  Sampling  Frequency  in  Frame  3 of  the  A/D  program.  As  with  the 
A/D  program,  the  maximum  conversion  frequency  is  a function  of  the 
number  of  channels  being  converted.  If  no  copy  is  to  be  made,  the 
maximum  frequency  is  the  same  as  the  A/D  program.  However,  if  a 
copy  is  to  be  made,  then  the  tape  controller  will  need  twice  as  much 
cycle  time  for  transfer  operations;  and  the  maximum  frequency  will  be 
approximately  20%  less  for  each  channel  mode. 

After  the  LINEFEED  is  typed  to  end  Frame  2,  the  program  reads  the 
first  block  of  data,  which  will  be  a header  block  formatted  in  EBCDIC, 
does  an  EBCDIC-to-ASCII  conversion,  and  prints  the  header  information 
as  the  first  part  of  the  map.  When  this  is  completed,  it  begins  the 
D/A  conversion  process,  typing  each  group  number  and  starting  block 
number  as  encountered.  Since  the  computer  is  equipped  with  only  12 
D/A  modules,  the  first  twelve  (0-11)  digital  tape  channels  are 
converted.  Channels  1-12  may  be  converted  by  setting  sense  switch  5; 
channels  2-13,  by  setting  sense  switch  4;  channels  3-14,  by  setting 
sense  switches  4 and  5;  and  channels  4-15,  by  setting  sense  switch  3. 
As  the  D/A  conversion  takes  place  the  user  may,  by  typing  CTRL  G, 
cause  the  program  to  read  forward  at  the  maximum  tape  speed  to  the 
next  group;  and  by  typing  CTRL  F,  cause  the  program  to  read  forward 
at  the  maximum  speed  to  the  next  file.  Copying  will  not  be  interfered 
with  in  either  case. 

Relay  0 is  switched  on  at  the  beginning  of  each  group  and  off  at 
the  end  of  each  group.  As  new  files  are  encountered,  as  part  of  the 
map,  the  program  prints  EOF  and  the  number  of  the  last  data  block  in 
the  previous  file.  When  the  EOT  mark  is  encountered,  the  program 
rewinds  the  digital  tape  or  tapes  and  returns  control  to  the  DIAL 
Monitor . 


CONCLUSIONS 

The  two  programs  described  in  this  paper  have  vastly  streamlined 
our  A/D  conversion  work.  The  A/D  program's  ability  to  locate  and 
digitize  specific  segments  of  data  from  analog  tape  at  multiple  play- 
back speeds  has  enabled  large  volume  jobs  to  be  completed  in  hours  or 
minutes  instead  of  days.  The  concept  of  a header  block  with  each 
data  file  has  been  beneficial  in  preventing  mistakes  as  A/D  tapes  are 
analyzed.  The  header  block  contains  pertinent  information  describing 
the  data  as  well  as  unique  identifiers  to  assure  that  the  proper  file 
has  been  located. 

Although  the  D/A  program  was  not  given  as  much  attention  in  the 
paper  as  the  A/D  program,  it  is  a vital  part  of  the  system.  The 
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ability  to  make  a slow  D/A  conversion  of  a problem  segment  of  data 
that  was  digitized  at  a high  sampling  frequency  is  a valuable  de- 
bugging aid.  An  available  duplicate  tape  has  proven  to  be  worthwhile; 
occasionally  we  have  called  a duplicate  tape  into  service  when  tape 
failures  rendered  the  original  useless.  The  information  that  the  map 
produces  is  also  very  useful. 

In  general  the  system  has  served  our  needs  well,  is  used  often, 
is  efficient,  and  is  capable  of  more  than  has  been  demanded  of  it. 
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APPENDIX  A 
A/D  PROGRAM  LISTING 
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*20 

/K WSATUU?  14  JAN  77 

/ANALOG  to  digital  conversion  program 
/ 

/KENNITM  m,  STEVENS 
/ 

/ 

PMOOt 

/API  COMMANDS. 

APION»600b 

PUSMJ»b760 

REST*b7  7 1 

SMLV»b772 

RFL0»b773 

RSTK*b774 

RVEC*b775 

SSTK»b77b 

SVEC*b777 

/tNO  07  API  COMMANDS, 


• 100 

0100 

4000 

K04000, 

4000 

0101 

0010 

K0010, 

0010 

CLOCK»JMS  I 

0102 

0420 

CLK 

API ■ J MS  I, 

0103 

0403 

1NTRPT 

0104 

4305 

TTAPE, 

RRITAP 

0105 

5b43 

ITAPE, 

J TAPE 

010b 

4305 

RTAPE ( 

HRITAP 

0107 

0243 

INT, 

POL  ♦ 1 

0110 

0710 

STUS, 

STATUS 

0111 

0001 

TFLAG, 

1 

/MAGTAPE 

. COMMANDS, 

lBMaJMS  I, 

0112 

0b00 

TU10 

RERI NOa00 1 0 

NEAO*0020 

NBYTE*0030 

WRI Tt»0040 

TM»01S0 

SPACEF*0060 

5PACEB*00T0 

GAP*0 1 00 

/ENO  07  MAGTAPE  COMMANDS 
• 200 

/INTERRUPT  VECTOR  TABLE, 


0200 

7000 

VECT, 

NOP 

0201 

7402 

MLT 

/PFW  POWER  FAIL 

0202 

7000 

NOP 

0203 

7402 

MLT 

/LINC  TAPE 

0204 

5605 

JMP  I , ♦ l 

0205 

0236 

VECCLK, 

AD0F7 

/KW12A  CLOCK 

020b 

7000 

NOP 

0207 

7402 

MLT 

/ (TSS)  TIME  SMARE 

0210 

5611 

JMP  I,*l 

0211 

5055 

TTT 

/TTT  PRINTER  (YOURS) 

0212 

5613 

JMP  I,*l 

0213 

4706 

KURD 

/TTY  KYBO  (YOURS) 

0214 

7000 

NOP 

0215 

7402 

MLT 

/TTY  REMOTE  (KYBU) 

021b 

7000 

NOP 

0217 

7402 

MLT 

/TTY  REMOTE  (PRT) 

007b 

0220 

1 U00 

NOP 

e077 

0221 

7402 

MLT 

/PLOTTER 

0100 

0222 

5623 

JMP  I.  + l 

0101 

0223 

06/4 

MAGTAP 

/MAGTAPE 

0102 

0224 

5625 

JMP  I . ♦ 1 

0103 

0225 

0240 

FPPOFF 

010a 

0226 

7000 

NOP 

010b 

0227 

7402 

HLT 

/" 

010b 

0230 

5631 

JMP  1.61 

0107 

0231 

0674 

MAGTAP 

/WANG  MAGTAPE, 

0110 

0232 

7000 

NOP 

0111 

0233 

7402 

HLT 

/" 

0112 

0234 

7000 

NOP 

0113 

0235 

7402 

HLT 

01  la 

/ 

011b 

/ 

END  OF  VECTOR 

table 

0116 

/ 

0117 

0236 

6133 

AUOFF, 

CLSA 

/INTERRUPTS  TO  HERE 

0120 

0237 

677  1 

REST 

/WHEN  NOT  DIGITIZING, 

0121 

0240 

6552 

F PPQFF  , 

6552 

0122 

0241 

6771 

REST 

0123 

0242 

0000 

POL, 

0 

/START  OF  PUSH  DORN  LIST 

012a 

/ 

0123 

/ 

0126 

• 400 

0127 

/ 

0130 

/ 

0131 

0400 

0200 

AVECT, 

VECT 

/SET  UP  PUSH  DOWN  LIST. 

0132 

0401 

0242 

APOL, 

POL 

0133 

0402 

0037 

*0037, 

0037 

013a 

0403 

0000 

INTRPT, 

0 

0135 

0404 

7200 

ULA 

0136 

0405 

1202 

TAD  *0037 

0137 

0406 

67  72 

3MLV 

0iae 

/ 

0141 

/ 

PUSH  DOWN  LIST 

IS  IN  LOW  4* 

0142 

/ 

VECTOR  FIELD 

IS 

IN  LOW  4* 

0143 

/ 

ALL  interrupts 

ARE  PERMITTED 

0144 

/ 

0145 

0407 

/200 

CLA 

0146 

0410 

1201 

TAD  APDL 

0147 

0411 

6776 

SSTK 

0150 

/ 

0131 

/ 

PUSH  DOWN  STAC* 

IS  IN 

0152 

/ 

PMODt  PAGE  1 

FIELD  0 

0133 

/ 

PDL-400 

0134 

/ 

THIS  3H0ULU  ALLOW  UP  TO  14 

0155 

/ 

PENDING  INTERRUPTS 

0156 

/ 

0157 

0412 

7200 

CLA 

0160 

0413 

1200 

TAD  AVECT 

0161 

0414 

67  77 

SVEC 

0162 

/ 

0163 

0415 

7200 

LLA 

0164 

0416 

6006 

API  ON 

* 0165 

0417 

5603 

JMP  I INTRPT 

0166 

/ 

VECTOR  TABLE 

ADDRESS  IS 

0167  / VECT 

0170  / 

0171  / 

0172  / 

0173  / 

017  4 / 
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K*12A  CLOCK  HANDLER 


0175 

0176 

0177 
0000 


0201 

0420 

0000 

0202 

0421 

7 3 00 

0203 

0422 

6133 

0204 

0423 

6132 

0205 

0424 

6135 

0206 

0425 

7200 

0207 

0426 

1243 

0210 

0427 

6132 

0211 

043/ 

6135 

0212 

0431 

7200 

0213 

0432 

1244 

0214 

0433 

6133 

0215 

0434 

/20(3 

0216 

0435 

1246 

0217 

0436 

6134 

0220 

0437 

7 200 

0221 

0440 

1245 

0222 

0441 

6132 

0223 

0442 

5620 

0224 

0225 

0226 

0227 

3230 

0231 

0232 

0233 

0234 

0235 

0443 

0100 

0236 

0444 

4575 

0237 

0445 

2100 

0240 

0446 

0300 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 
0260 
0261 
0262 

0263 

0264 

0265 

0266 
0267 

0270 

0271 

0272 

0273 


/ 

/ 

7 

CUK,  0 

lla  ClL 

LLAd 

CLLH 

USA 

CL* 

7 AO  K K 1 00 

LLLR 

LLSA 

cl  a 

TAD  NUMBER 

LLAd 

LLA 

TAD  KB300 

CLEN 

LLA 

TAD  K 5 1 00 
LLLR 

JmP  I clk 


/START  THE  CLOCK. 

/set  up  clock  buffer 

/'PRESET  THE  BPR  FOR  C 
/LOAD  CK  enable 


/NUMBER,  IS  TmE  COUNTS  BEFORE  INTERRUPT 
/ 

/K510P,  IS  THE  CLOCK  CONTROL  RES. 

/ 

/K030B,  sets  the  interrupt  enable 
/ 

/K0100,  USED  TO  GET  A MODE  CHANGE 
/ 

K0100, 

NUMBER. 

K5100. 

K03O0 t 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

MTSF  *6701 

/SKIP  ON  ERROR  FLAG,  OR  MAGNETIC  TAPE  FLAG 
/ 

MTCh»6711 

/SKIP  UN  T.C.  READY 
/ 

MTTR»h721 

/SKIP  ON  T.T.  READY 
/ 

mTAF»6712 

/clean  registers  and  flags 
/ 

HTRC»6724 

/INCLUSIVE  "OR"  C (CR ) TO  C C AC 3 
/ 

mTCh«6T 14 

/INCLUSIVE  "OR"  C ( AC ) TO  CCCR) 


0100 

-3203 

2100 

0300 


*600 

T U 1 0 TAPE  HANDLER 
28  JAN  1974 
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327  4 

/BITS  3-5  AND  9-11,  JAM  BITS  6,7,B  TO  AC 

2275 

/ 

0276 

M TLC  *67 1 6 

0277 

/load  command  REGIsTtR 

0300 

/ 

3331 

XXXX»6704 

3332 

/INCLUSlvt  "OH"  C(3.R.)  T 0 C(AC3 

3333 

/ 

3334 

MTHS»6706 

0 33b 

/H t A 0 STATUS  REGISTER 

Z306 

/ 

0 33  7 

MTG0«6722 

0313 

/MAC  TAPt  GO 

0311 

/ 

3312 

MCL  A »67  02 

0313 

/CLEAR  AC 

0314 

/ 

331b 

/ 

0316 

/ 

0317 

/ tRHOR  CODES  In  AC 

3320 

/ 

3321 

/ 3,  ERKOR  FLAG  TOTAL 

0322 

/ l.  TAPE  RtwINOlNG 

3323 

/ 2.  BEGINNING  OF  TAPE  (B0T3 

0324 

/ 3.  illegal  COMMAND 

332b 

/ 4,  PARITY  (LATERAL  OR  L0NGITUQAL3 

0326 

/ 5,  END  OF  FILt  (EOF  3 

3327 

/ 6,  END  OF  TAPt  (EOT 3 

3330 

/ 7.  REAO/COMPARE  ERROR 

3331 

/ B.  RtCORO  LtNGTh  INCORRECT 

3332 

/ WC  * 3 LONG 

3333 

/ WC»/3  SHORT 

3334 

/ 9.  DATA  REUUEST  LATE 

033b 

/ 13.  BAD  TAPE 

0336 

/ 11.  JOB  DONE  (MTF) 

0337 

/ 

3340 

/ 

3341 

/ 

3 342 

3600 

3330 

TU10,  3 /C (AC3  *BUF  FIELD 

0343 

3601 

333  b 

UCA  LMERE 

0344 

3602 

1111 

TAD  TFLAG 

034b 

3603 

7 4b3 

SNA 

0346 

3604 

5232 

JMP  ,-2 

0347 

3605 

7233 

LLA 

0353 

3606 

3111 

UCA  TFLAG 

33bl 

3607 

6214 

RDF 

0 3b2 

3610 

1311 

TAD  X C IF 

3 353 

3611 

3272 

UCA  REFSET 

3354 

3612 

6721 

mTTh 

0355 

0613 

5212 

JMP  .-1 

3356 

0614 

1630 

TAD  I TU10  /GET  COMMAND 

0357 

3615 

3337 

UCA  COMMND 

3360 

3616 

1337 

TAD  COMMND 

3361 

3617 

3312 

AND  MASK 

3362 

3620 

7112 

DLL  RTR 

3363 

3621 

7310 

RAR 

0364 

3622 

1225 

1 AD  .*3 

0365 

3623 

3224 

UCA  , ♦ 1 

3366 

3624 

7333 

NOP 

0367 

/ 

3370 

/ « COMMAND  OF  "0"  hILL  HANG 

0371 

/ THIS  CAN  EASt  SOMt  OEBUG  PROBLtMS 

0372 

/ 
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0375 

06?6 

5??5 

JMP  , 

0374 

06?6 

b?50 

JMP  REWIN 

0375 

06?7 

5?54 

JMP  readwr 

0376 

06  30 

5?43 

JMP  SETCNT 

0377 

0631 

5?54 

JMP  REAOWW 

0400 

063? 

5?5? 

JMP  EOF 

0401 

0633 

7 000 

PACEF , 

NOP 

040? 

0634 

3305 

PACEB, 

OCA  WHERE 

0403 

0635 

??00 

ISZ  Tuio 

0404 

0656 

1600 

TAD  I TU10 

0405 

0637 

7041 

L I A 

0406 

0640 

3306 

OCA  COUNT 

0407 

0641 

5?60 

JMP  MAG3 

0410 

064? 

67  7 1 

WEST 

0411 

06«3 

??0P 

SETCnT, 

ISZ  TUIO 

041? 

0644 

1600 

TAO  I TU10 

0413 

0645 

7041 

CIA 

0414 

0646 

3306 

OCA  COUNT 

0415 

0647 

5?7  1 

JMP  RETA 

0416 

0650 

3305 

RE  4 I N , 

OCA  WHERE 

0417 

0651 

5?6? 

JMP  MAG4 

04?0 

065? 

3305 

EOF, 

OCA  WHERE 

0 4?  1 

0653 

5?b? 

JMP  MAG4 

34?? 

/ 

HEwlNO»EOF  CODE 

04?3 

0654 

??00 

Wfc  AOWR / 

ISZ  TU10 

0404 

0655 

7?40 

CLA  CMA 

04?5 

0656 

1600 

TAD  1 TU 1 0 

04?6 

0657 

3716 

OCA  I TAPER 

04?7 

0660 

1506 

MAG  3 i 

TAD  COUNT 

0430 

066  1 

3717 

OCA  1 T APE A ♦ 1 

0431 

066? 

1307 

MAG4  , 

TAD  COMMNO 

043? 

0663 

0313 

AND  MASK+1 

0433 

0664 

1 3?0 

TAO  KCOM 

0434 

0665 

6716 

MAG6, 

MTLC 

0436 

0666 

7 ?0O 

CL* 

043b 

0667 

1305 

TAD  WHERE 

0437 

0670 

67?? 

mTGO 

0440 

0671 

??00 

RETA, 

isz  Tula 

0441 

067? 

6?0? 

REFSET, 

C IF  0 

044? 

0673 

5600 

jmp  i Tula 

0443 

0674 

6 706 

MAGTAP, 

MTRS 

0444 

0675 

6 71? 

MTAF 

0445 

0676 

3310 

OCA  STATUS 

0446 

0677 

1310 

TAD  STATUS 

0447 

0700 

7610 

SPA 

0450 

0701 

7000 

NOP 

0451 

070? 

0111 

ISZ  TFLAG 

045? 

0703 

67/1 

WEST 

0453 

0704 

740? 

MLT 

0454 

0705 

0000 

WHERE  r 

0 

0455 

0706 

0000 

COUNT  , 

0 

0456 

0707 

0000 

COMMNO , 

0 

0457 

0710 

0000 

STATUS, 

0 

0460 

0711 

6?0? 

KCIF, 

6?0? 

0461 

071? 

0070 

MASK  , 

0070 

046? 

0713 

0370 

0370 

0463 

0714 

0606 

06O6 

0464 

0715 

0100 

0100 

0465 

0716 

7753 

TAPEK, 

7 753 

0466 

0717 

775? 

7 75? 

0467 

07  ?0 

0407 

KCOM, 

0407 

0470 

07?  1 

7 7 7 3 

MK5, 

-6 

0471 

/ 

/NO  ERROR  CHECK 


BUT  ERRORS  DIFFER 


/SPACE 
/ N E W I NO 

/LOAD  COMMAND 


/STATUS 

/SET  UP  FOR  RETRY 


/BUFFER  FIELD 


/READrR  ERROR 
/EOF 
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0473 

• 777 

0473 

0777 

1030 

UATUM 

H47u 

/ 

0475 

/ 

047  6 

/ 

NO  tRHOR  CHECK 

FOR 

0477 

/ 

1,  SPACE  F UPWARD 

0501' 

/ 

3.  SPACt  BACK 

0501 

/ 

3.  REMIND 

0500 

/ 

4.  READ  EOM/7 

0503 

/ 

0504 

/ 

0505 

/ 

0505 

/ 

PAGE  3 

0507 

/ 

NOOKS  TO  SETUP 

THE  DATUM 

0510 

/ 

0511 

1000 

0000 

SETJAT, 

0 

05ia 

1001 

3300 

ISZ  SETDAT 

0513 

1003 

7300 

CLA 

0514 

1003 

1313 

TAD  KJMS 

0515 

1004 

3613 

UCA  I KJMS+1 

0515 

1005 

1314 

TAD  KJM$*g 

0517 

1006 

3615 

UCA  I KJMS+3 

0500 

1007 

1317 

TAD  K0004 

0531 

1010 

3616 

UCA  I KJMS*4 

0533 

1011 

5600 

JMP  I SETDAT 

0533 

1013 

47  77 

KJMS, 

4777 

/ JMS  I P 177 

0534 

1013 

0601 

TU10M 

0535 

ld« 

0604 

0604 

0536 

1015 

07  14 

MASK+3 

0537 

1016 

0730 

KCOM 

/COMMAND  CONSTANT 

0530 

1017 

0004 

K 0004 i 

4 

0531 

1030 

0000 

DATUM, 

0 

0533 

1031 

7113 

CLL  KTR 

/MOVE  FIELD  POINTER 

0533 

1033 

7010 

RAW 

/TO  BITS  R , 10,  11,  AND 

0534 

1033 

6717 

6717 

/SETS  PROPER  DATA  FIELD 

0535 

1034 

5630 

jmp  i datum 

/FOR  OATUM  TRANSPORT. 

0536 

/ 

0537 

/ 

tND  06  TAPE  HANDLER 

0540 

/ 

0541 

lmode 

0543 

SEGMNT  1 

0543 

*30 

0544 

/UANDA  1 

COMMANDS 

0545 

UU* JMP  1000 

0546 

UR»JMP  1063 

0547 

/ 

0550 

/tND  06 

UANDA1  COMMANDS 

0551 

0030 

0643 

DISPLA, 

LQF  3 

/THIS  IS  TME  PORTION 

0553 

0031 

7000 

UU 

/OF  THE  PROGRAM  THAT 

0553 

0033 

3000 

MESS0 1 3000 

/displays  the  question 

0554 

0033 

0016 

NOP 

/AND  ANSWERS  ON  THE 

0555 

0034 

7063 

UR 

/SCREEN, 

0556 

0035 

7000 

UU 

0557 

003b 

3107 

MtSSl 13000 

0560 

003  7 

3001 

ANSI  13000 

0561 

0030 

7063 

UR 

0563 

0031 

1000 

LUA 

0563 

0033 

3003 

3003 

0564 

0033 

0643 

CDF  3 

0565 

0'134 

1040 

STA 

0566 

0035 

3665 

T YPt  T 1 3000 

0567 

0036 

6053 

JMP  CUNT 

0570 

0037 

0643 

RtSTRT, 

LOF  3 

0571 

0040 

7000 

UU 

0372 

0241 

321? 

ME  S32 12000 

0373 

0042 

2236 

ANS2I2000 

05  7 4 

0043 

7063 

UK 

0575 

0044 

1 000 

LDA 

0576 

0045 

2036 

2036 

0577 

0246 

1460 

6 At  I 

0600 

0047 

7400 

7400 

/S4 I P IF  NE  M PAKAMETEKS. 

0601 

0050 

6032 

JMP  ,*2 

0602 

0051 

6053 

J HP  CONT 

0603 

0052 

6434 

J HP  HEADER 

0604 

0053 

0643  CONT, 

LOF  3 

2605 

0054 

7000 

UU 

0606 

0055 

3320 

nt SS3 1 2000 

0607 

0056 

2010 

ANS3 1 2000 

0610 

0037 

7063 

UK 

0611 

0060 

7000 

UU 

0612 

0061 

3607 

HtS$4 1 2000 

0613 

0062 

2053 

ANS4 1 2000 

0614 

0063 

7063 

UK 

/tNO  OF  QUESTION  ANO 

0615 

0064 

1000 

LDA 

/ANSWER  SESSION. 

0616 

0065 

2001 

2001 

/THIS  COOING  INTERROGATES 

0617 

0066 

1460 

SAE  I 

/THE  VARIOUS  ANSWER 

0620 

0067 

7404 

7404 

/FIELOS  AND  SETS  UP 

0621 

0070 

6075 

JMP  .*5 

/CERTAIN  PARAMETERS. 

0622 

0071 

0002 

POP 

0623 

PMODt 

0624 

2072 

4673 

JMS  1.41 

0625 

2073 

1000 

SETOAT 

0626 

2074 

6141 

LINC 

0627 

LMODE 

0630 

0075 

1000 

LDA 

0631 

007b 

2047 

2047 

0632 

0077 

1560 

aCL  I 

0633 

0100 

6077 

6077 

0634 

0101 

0243 

KUL  3 

0635 

0102 

1120 

AOA  I 

0636 

0103 

0100 

100 

0637 

0104 

0640 

LOP  0 

0640 

0105 

1040 

STA 

0641 

0106 

2445 

4510012000 

0642 

0107 

1460 

SAE  I 

0643 

0110 

6100 

6100 

0644 

0111 

6115 

JMP  .44 

0645 

0112 

1020 

LDA  1 

0646 

0113 

0320 

0320 

0647 

0114 

6117 

JMP  .43 

0650 

0115 

1020 

LOA  I 

0651 

0116 

0300 

0300 

0652 

0117 

1040 

STA 

0653 

0120 

2446 

4030012000 

0654 

0121 

0643 

LOF  3 

0655 

0122 

1020 

LOA  1 

/LOAD  HALF  kORO  ADDRESS 

0656 

0123 

6047 

6047 

/OF  NUMBER  TO  BE 

0657 

0124 

6403 

JMP  DECHIN 

/CONVERTED  TO  BINARY. 

0660 

0125 

0017 

COM 

0661 

0126 

1120 

AUA  I 

0662 

0127 

0001 

0001 

0663 

0130 

0640 

LOF  0 

0664 

0131 

1040 

STA 

0665 

0132 

2444 

NUMUEK 1 2000 

0666 

0133 

0643 

LOF  3 

0667 

0134 

1000 

LOA 

/LOAD  NUMBER  OF 

ft 
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0fe7«" 

0135 

2035 

2035 

/CHANNELS, 

0671 

0136 

0640 

LOP  2 

0672 

0137 

104? 

ST* 

0673 

0140 

3741 

LhAn 1 2000 

0674 

0141 

0011 

clk 

Bb75 

0142 

1040 

ST* 

0b76 

0143 

3740 

hChan 1 2?00 

P67  7 

0144 

102? 

Lit*  I 

07?P 

0145 

7737 

1 XSEVN l 6000 

0701 

0146 

6403 

JMP  DfcCHIN 

0702 

0147 

1040 

ST* 

/STORE  NO.  OP  CHANNELS. 

0703 

0150 

3741 

CHAN  1 2000 

0704 

0151 

0017 

COM 

0705 

0152 

1040 

ST* 

/NEGATIVE  NO.  OP  CHANNELS 

0706 

0153 

3740 

nCHAN 1 200? 

0707 

0154 

0241 

MOL  1 

0710 

0155 

4161 

STC  TEMP3 

0711 

0156 

102? 

CD*  I 

0712 

0157 

4000 

4000 

0713 

016  2 

1120 

*0*  I 

0714 

0161 

0000  TEMP3, 

0 

0715 

0162 

0471 

APO  I 

071b 

0163 

6160 

JMP  ,-3 

0717 

0164 

0470 

* Zt  I 

0720 

0165 

617? 

JMP  ,*5 

0721 

0166 

110? 

AOA 

0722 

0167 

3741 

CHAN  1 2000 

0723 

0170 

1100 

AO* 

0724 

0171 

3741 

LHAN 1 2000 

0725 

0172 

1040 

ST  A 

072b 

0173 

37  35 

KCOSKP 12000 

0727 

0174 

0017 

COM 

07  3H 

0175 

1120 

AO*  I 

0731 

0176 

400? 

4000 

0732 

0177 

1040 

STA 

0733 

020? 

6102 

NCOS  1 Z 12000 

0734 

0201 

1040 

STA 

0735 

0202 

3733 

HUSIZE 12000 

073b 

0203 

1000 

LOA 

0737 

0204 

3735 

MCDSKP 12000 

0740 

0205 

1120 

AOA  I 

0741 

0206 

3777 

3777 

0742 

0207 

15b? 

eci  I 

0743 

0210 

4000 

4000 

0744 

0211 

162? 

SSE  I 

0745 

0212 

2000 

2?00 

0746 

0213 

104? 

STA 

0747 

0214 

3737 

1XSEVN12000 

0750 

0215 

1100 

AOA 

0751 

0216 

3741 

CHAN1200O 

0752 

0217 

1100 

AOA 

0753 

022? 

3741 

CHAN  1 20?0 

0754 

0221 

1560 

SCI  I 

0755 

0222 

400? 

4000 

075b 

0223 

1620 

SSE  I 

0757 

022  4 

2000 

2000 

0760 

0225 

104? 

STA 

0 7b  1 

0226 

3736 

1XTEN12000 

0762 

0227 

0643 

LOP  3 

0763 

023? 

1000 

LOA 

0764 

0231 

2034 

2034 

0765 

0232 

0642 

LOP  2 

076b 

0233 

1560 

aCL  I 

J 
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0767 

0234 

7 6 7 7 

767  7 

0770 

0235 

04  7 0 

A Zfc  I 

077  1 

023b 

6242 

JMP  ,*4 

0772 

0237 

1020 

LUA  I 

077  3 

0240 

0016 

NOP 

077a 

0241 

6244 

JMP  ,*3 

0775 

0242 

1020 

LUA  I 

0776 

0243 

6542 

JMP  UNPAK 

0777 

0244 

1040 

STA 

1000 

0245 

24  7 3 

JSwl 12000 

1001 

0246 

1020 

LUA  I 

1000 

0247 

0016 

NOP 

1003 

0250 

1040 

STA 

1004 

0251 

234  1 

TWOCHN12O0O 

1005 

0252 

1040 

STA 

1006 

0253 

2350 

IHRLHN12000 

1007 

0354 

1040 

STA 

1010 

0355 

2357 

PORCHN1200O 

1011 

0256 

1040 

STA 

1010 

0257 

2366 

P IVCHN12000 

1013 

0260 

1040 

STA 

1014 

026  1 

2375 

SIXCHN120O0 

1015 

0263 

1040 

STA 

1316 

0263 

2404 

SEVChn l 2000 

1017 

0264 

1040 

STA 

1030 

0265 

2413 

tHTCHM200O 

1031 

0266 

1040 

STA 

1033 

0267 

2422 

N I NCHN 1 2000 

1033 

0370 

1040 

STA 

1034 

027  1 

2431 

TENCHN1200O 

1035 

0273 

1040 

STA 

1036 

0373 

2440 

El  V CHN 1200  0 

1037 

0274 

1040 

STA 

1030 

0275 

2447 

T wLCHN 1 2000 

1031 

0276 

1040 

STA 

1032 

0277 

2454 

TRTCHN1 2000 

1033 

0300 

1040 

STA 

1034 

0301 

2461 

F W TCHn l 2000 

1035 

0302 

1040 

STA 

1036 

0303 

2466 

P FTCHn 1 2000 

1037 

0304 

0011 

CLR 

1040 

0305 

1100 

ADA 

1041 

0306 

3741 

CHAN  1 2000 

1042 

0307 

0241 

MOL  1 

1043 

0310 

1120 

AUA  I 

1044 

0311 

6312 

JMP  ,*1 

1045 

0312 

4315 

STC  JMPADR 

1046 

0313 

1020 

LDA  I 

1047 

0314 

6473 

JMP  JSW1 

1050 

0315 

0000 

JMPADR,  o 

1051 

0316 

1040 

STA 

1052 

0 317 

2341 

T wOCHN 1 2000 

1053 

0320 

1040 

STA 

1054 

0321 

2350 

TmRChn12000 

1055 

•0  332 

1040 

STA 

1056 

0323 

2357 

F ORCHN 1 2000 

1057 

0324 

1040 

STA 

1060 

0325 

2366 

F I VCHN 1 2000 

1061 

0326 

1040 

STA 

1063 

0327 

2375 

SIXCHN12000 

1063 

0330 

1040 

STA 

1064 

0331 

2404 

SEVCHN12000 

1065 

0333 

1040 

STA 

/WILL  CHANNEL  0 BE  USED  FOR  EDITS? 
/NO, 

/Vis,  MAKE  APPRUP I A TE  PATCH. 


/INITIALIZE  FOR  16  CMANNtLS. 


/THE  FOLLOWING  CODING 
/SETS  UP  THE  CORRECT 
/NUMBER  OF  CHANNELS 
/TO  DIGITIZE, 
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066 

0333 

2413 

tMTCHM200O 

06T 

0334 

1040 

ST  A 

PI  ? 0 

0335 

2402 

NINCHN12000 

071 

0336 

1040 

STA 

072 

0337 

2431 

TENCMN 12000 

07  3 

034? 

1040 

STA 

774 

0 34  1 

2440 

tLVCHN 1 2000 

07b 

0342 

1040 

STA 

076 

0343 

2447 

T MLCHN 1 2000 

*’7  7 

0344 

1040 

STA 

100 

0345 

2454 

TRTCHN 1 2000 

101 

0346 

1040 

STA 

10? 

0347 

2461 

6RTCHN J20OO 

U'J 

o 350 

1040 

STA 

/ALL  PARAMETERS  HAVE 

104 

0351 

2466 

Yf TCHNl?00» 

/BEEN  TAKEN  CARE  OP. 

105 

0352 

6434 

JMP  HEADER 

/NUh  TAKE  CARE  OP  HEADER  INFO. 

106 

0353 

0643 

SPECAL, 

LOT  3 

/SET  UP  STARTING  GROUP  NO. 

107 

0354 

1020 

LOA  I 

110 

0355 

6042 

6042 

111 

0356 

6403 

JMP  UECBIN 

112 

0357 

1120 

ADA  1 

113 

0360 

7 7 76 

-1 

114 

0361 

0642 

LDF  2 

115 

0362 

1040 

STA 

116 

0363 

3727 

6HOUP12000 

117 

0364 

0024 

SPA 

/special  function  REGISTER. 

120 

0365 

1620 

oSE  I 

121 

0366 

0020 

20 

122 

0367 

0004 

tSP 

123 

0370 

1560 

BCL  l 

124 

0371 

0020 

20 

125 

0372 

1620 

BSE  I 

126 

0373 

0100 

100 

127 

0374 

0004 

tSP 

13? 

0375 

0002 

PUP 

131 

PMOOE 

132 

237b 

4502 

CLOCK 

/3ET  UP  CLOCK. 

133 

2377 

4503 

PT. 

API 

/SET  UP  AUTOMATIC  PRIORITY  INTERRU 

134 

2400 

6141 

LINC 

135 

LMOUt 

13b 

0401 

0602 

LIP  2 

137 

0402 

6022 

JMP  BE-IN 

14? 

0403 

4006 

UECBIN, 

STC  6 

/UECIMAL  TO  BINARY  CONVER- 

141 

0404 

1000 

LOA 

SION  ROUTINE, 

142 

0405 

0000 

0 

/ROUTINE  IS  ENTERED 

143 

0406 

4433 

STC  RETURN 

/WITH  half  word  address 

144 

0407 

4424 

STC  TEMPI 

/UP  DECIMAL  NUMBER 

145 

0410 

0065 

StT  I 5 

/IN  AC. 

146 

0411 

7 7 74 

-3 

/EXITS  RITH  BINARY 

147 

0412 

1326 

NXTDCT  t 

LOH  I 6 

/NUMBER  IN  AC. 

150 

0413 

1560 

BCL  I 

151 

0414 

7760 

7760 

152 

0415 

2424 

ADD  TEMPI 

153 

0416 

1060 

STA  1 

154 

0417 

0000 

TtMP, 

0000 

155 

0420 

0242 

NOL  2 

156 

0421 

2417 

ADO  TEMP 

157 

0422 

0241 

MOL  1 

160 

0423 

1060 

STA  I 

161 

0424 

0000 

TtMPl , 

0000 

162 

0425 

0225 

ASK  I 5 

163 

0426 

6412 

JMP  NXTDCT 

n 


1160 

0427 

1326 

LUH  1 6 

116b 

0430 

1560 

BCL  I 

1166 

0431 

7 760 

7 760 

1167 

0432 

2424 

AUU  7tMPl 

1170 

0433 

0000 

RtTuRN, 

0000 

/tNO  OF  OECBIN. 

1171 

0434 

1020 

MtADER, 

LU  A I 

/HEADER  ROUTINE  DOES 

1172 

0435 

0644 

LOF  4 

/AN  ASCII  TO  EBCDIC 

1173 

0436 

4473 

STC  6 1LU 

/CONVERSION  AND  STORES 

1174 

0437 

0065 

SET  I 5 

/IN  TAPE  BUFFER  AREA. 

1175 

0440 

3777 

3777 

1176 

0441 

0011 

CLR 

1177 

0442 

1120 

ADA  I 

1222 

0443 

0020 

20 

1221 

0444 

0644 

LOF  4 

1222 

0445 

1065 

ST  A I 5 

1223 

0446 

0011 

CL» 

1224 

0447 

1065 

STA  I 5 

1225 

0450 

1065 

STA  1 5 

/LtAVES  ROOM  FOR 

1226 

0451 

1120 

ADA  I 

1207 

0452 

0001 

1 

1212 

0453 

1065 

sTA  1 5 

/BLOCK  COUNT. 

1211 

0454 

0064 

SET  I 4 

1212 

0455 

6000 
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£234 

0477 

3725 

A 00 

A 4000 

£035 

0502 

0401 

SXL 

1 

£2  36 

0501 

6503 

JMP 

.♦£ 

£237 

0502 

3 72  4 

AOD 

K £020 

£1)42 

0503 

0402 

SXL 

£ 

2041 

0504 

6506 

JMP 

.♦£ 

£042 

0505 

3723 

AOD 

K 1 000 

£04  3 

05C6 

0403 

SXL 

3 

£244 

0507 

6511 

JMP 

.♦£ 

£245 

0512 

3702 

AOD 

K 400 

224h 

0511 

0404 

SXL 

4 

£047 

0512 

6514 

JMP 

. ♦£ 

£052 

0513 

3 72  1 

AOD 

K£22 

£051 

0514 

0403 

SXL 

5 

2252 

0515 

6317 

JMP 

.♦£ 

2 25  3 

0516 

3720 

ADD 

K 1 02 

£054 

0517 

0406 

SXL 

6 

/IF  CHO  IS  AN  EDIT 
/CHANNEL i JSW1  wlLL  BE 
/REPLACED  WITH  A NOP 
/AND  THIS  COOING  WILL 
/bt  EXECUTEO. 

/IT  BylLOS  THE  EDIT  WO«0, 
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£055 

05£0 

69££ 

JMP  .♦£ 

£056 

05£  1 

3717 

ADD  K40 

£057 

09££ 

0“07 

3 XL  7 

£060 

09£3 

69£5 

JMP  ,♦£ 

£061 

»5£4 

37  16 

ADO  K£0 

£06£ 

US£5 

0“  10 

SXL  10 

£06  3 

05£b 

6930 

JMP  .♦£ 

£06“ 

05£7 

3719 

ADD  K 1 0 

0930 

0411 

3»L  11 

£066 

0531 

6533 

JMP  .♦£ 

eidbr 

053£ 

371“ 

ADO  K 4 

£07o 

0533 

0“  1 £ 

3 XL  1 £ 

£07i 

053“ 

6636 

JMP  ,*£ 

£07  £ 

0535 

37U 

ADO  K£ 

£073 

0536 

0“  l 3 

3XL  13 

£07“ 

0537 

65“  1 

JMP  .*£ 

£375 

0540 

3 7 1 £ 

ADO  ONE 

£376 

0541 

5 7“£ 

arc  cm0 

£0  7 7 

054£ 

00“£ 

UNPAK , 

SET  £ 

/THIS  IS  THE  PORTION  TMA 

£100 

0543 

1 7“0 

MCHAN 

/UNPACKS  THE  CONVERTED 

£101 

054“ 

0063 

SET  I 3 

/NUMBERS  AND  STORES  THEM 

£10£ 

0545 

1 7 “ 1 

Oman 

/IN  TWO  WOROS  IN  THE 

£103 

0546 

06“4 

DATFLO, 

LOP  4 

/TAPE  BUFFER, 

£10“ 

0547 

1 0£3 

LOA  I 3 

£109 

0550 

1555 

BCL  15 

£106 

0551 

0350 

scr  a 

£107 

055£ 

1070 

STA  1 10 

£110 

0553 

1003 

LOA  3 

£111 

0554 

1070 

STA  1 10 

£11? 

0555 

0£  1 0 

XSK  10 

/END  OF  LINC  FIEL07 

£113 

0556 

6575 

JMP  FRAME 

/NO 

£11“ 

0557 

0011 

llr 

/YES  , 

£119 

0560 

£5“6 

AOO  DATFLO 

£116 

0561 

37  1 £ 

ADO  ONE 

£117 

056£ 

I960 

BCL  I 

£ 1 £0 

0563 

001“ 

14 

£ 1 £ 1 

0564 

371“ 

AOD  K4 

£ 1 ££ 

0565 

1040 

STA 

£ 1 £ 3 

0566 

0546 

DATFLO 

£1£“ 

0567 

1040 

STA 

£ 1 £9 

0570 

0615 

► ILL 

£ 1 £6 

0571 

1560 

BCL  I 

£ 1 £7 

057£ 

7776 

7 776 

£130 

0573 

04  7 0 

*2E  I 

/END  OF  RECORD? 

£131 

057  4 

6600 

JMP  NE  WRCD 

/YES 

£ 1 3£ 

0575 

0£££ 

FRAME, 

XSK  I £ 

/NO,  END  OF  FRAME? 

£133 

0576 

6546 

JMP  DATFLO 

/NO 

£13“ 

0577 

6607 

JMP  SAMXIT 

/YES 

£135 

0600 

0090 

NEWRCO, 

SET  10 

£136 

0601 

1736 

1XTEN 

£137 

060£ 

0O0£ 

POP 

£ 1 “0 

PMOOt 

£ 1 “ 1 

4603 

6 £0  1 

COF  0 

£ 1 “£ 

4604 

1106 

TAD  R T APE 

£1“3 

4b05 

3507 

OCA  I INT 

£14“ 

“606 

6141 

L1NC 

£ 1 “5 

L MOD  t 

£146 

0607 

000£ 

SAMXIT, 

POP 

£147 

PMODE 

£150 

“610 

6139 

LlS  A 

£151 

“611 

67  7 1 

KfcST 

£ 1 5£ 

LMOOt 

£193 

06  1 £ 

1000 

WKAPUP , 

LDA 

/FILL  BUFFER  WITH  40S, 
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2154 

0613 

0000 

0 

2155 

»614 

4704 

STC  EXIT 

2156 

0615 

0644 

6 ILL, 

LUF  4 

2157 

0616 

1020 

LUA  I 

216.1 

0617 

0040 

0040 

2161 

062.1 

10/0 

5 r a i i0 

2102 

0621 

02 10 

XSK  10 

2161 

0622 

6620 

JMP  .-2 

2164 

0623 

1 000 

LDA 

2165 

0624 

0615 

6 ILL 

2166 

0625 

1500 

oCL  I 

2167 

0626 

7 7 7 6 

7 7 70 

21T0 

0627 

0450 

AZfc 

2 1 7 l 

0630 

0040 

JMP  WRIT 

2172 

0631 

3712 

ADD  ONE 

2 1 7 J 

0632 

2615 

ADO  6 ILL 

2174 

0633 

4015 

STC  TILL 

2175 

6634 

6615 

JMP  PILL 

2176 

0635 

1000 

TAPE, 

LOA 

2177 

0636 

0000 

0 

2200 

0637 

4704 

STC  EXIT 

2261 

6642 

1000 

WRIT, 

LOA 

22(12 

0641 

1725 

64000 

2263 

0642 

2705 

ADD  AORtSS 

226  4 

6643 

1500 

BCL  I 

2265 

0644 

0001 

1 

2206 

0645 

1040 

STA 

2207 

6646 

0705 

AJHES3 

2210 

0647 

0242 

HQL  2 

221  1 

0650 

1500 

BCL  I 

2212 

0651 

7 7 7 5 

7 775 

2213 

0652 

1120 

ADA  I 

2214 

0653 

0044 

644 

2215 

0654 

4002 

STC  LNKFLO 

2216 

0655 

0011 

LlR 

2217 

0656 

3712 

ADO  ONE 

2220 

0657 

3006 

ADD  LOBLOK 

2221 

0660 

0204 

NOL  I 4 

2222 

0661 

0250 

HOL  6 

2223 

0662 

0000 

LNKFLO, 

0000 

2224 

6663 

1040 

aTA 

2225 

0664 

0000 

LOAJR, 

0 

/POINTER  TO  LOW 

2226 

0665 

5660 

aTC  LOBLOK 

/ORDER  BYTE  OF 

2227 

0666 

1200 

lam 

/BLOCK  COUNT, 

2230 

0667 

1607 

MIBLOK 

2231 

0670 

1040 

aTA 

2232 

0671 

0000 

HlAOR, 

0 

/POINTER  TO  HJ6M 

2233 

0672 

0002 

POP 

/ORDER  BYTE. 

2234 

PMODE 

2235 

4673 

7 300 

lla  cll 

2236 

4674 

1305 

TAD  ADRESS 

2237 

4675 

3302 

DC  A ADR 

2240 

46/6 

1101 

TAD  K0010 

2241 

4677 

0201 

CDF  0 

2242 

4700 

4512 

IBM 

2243 

4701 

0040 

WRITE 

2244 

4702 

0000 

ADR, 

0 

2245 

4703 

6141 

LINC 

2246 

LMODE 

2247 

0704 

000(1 

EXIT, 

0 

2250 

0705 

0000 

AORESS, 

0 

2251 

PMODt 

2252 

4706 

7200 

KBRO  , 

LLA 

/INTERRUPT  TO  HERE 
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22S3 

4707 

6054 

ARS 

2254 

4 7 10 

6141 

LINE 

/IF  SOMETHING  WAS  TYPED 

2255 

LMOOfc 

225b 

0711 

1 4 b O 

34E  I 

/WAS  IT  AN  F P OH 

2257 

0712 

0206 

206 

/END  OP  FILE? 

2260 

0713 

b 742 

JMP  tOT 

/NO. 

22b  l 

U7  14 

1020 

LUA  I 

/YES, WRITE  END  OP  PILE 

2202 

0715 

0212 

212 

22b} 

07  1b 

0002 

HUP 

2254 

PMODE 

22b  5 

47  17 

604  b 

TLS 

22bb 

4 720 

6201 

LOP  0 

22  b7 

4721 

7200 

OLA 

227n 

4722 

4512 

IBM 

2271 

4723 

0150 

TM1GAP 

2272 

4724 

6721 

HTTP 

22  73 

4725 

5324 

JMP  .-1 

22  74 

4726 

2111 

ISZ  TPLAG 

2275 

4727 

7200 

LLA 

227b 

4730 

4512 

IBM 

227  7 

4731 

0150 

TM  1 GAP 

2300 

4 7 32 

6721 

mTTH 

2301 

4733 

5332 

JMP  .-1 

2302 

4 734 

2111 

ISZ  TFLAG 

230  3 

4735 

6032 

KCC 

2304 

4736 

6002 

10P 

2305 

4737 

6141 

LINC 

2306 

LMUDE 

2307 

0740 

0601 

LIP  1 

2310 

0741 

6037 

JMP  RESTHT 

2311 

0742 

1460  EUT, 

3AE  I 

/WAS  IT  A T FOR 

2312 

0743 

0224 

224 

/END  OF  TAPE? 

2313 

0744 

7002 

JMP  TIME 

/NO, 

2314 

0745 

0002 

POP 

/YES,  WRITE  END  OF 

2315 

PMQDE 

/TAPE  AND  RETURN  TO  DIAl 

2316 

4746 

6201 

LOP  0 

2317 

4747 

7200 

LLA 

2320 

4750 

4512 

IBM 

2321 

4751 

0150 

TM 1 GAP 

2322 

4752 

6721 

MTTH 

2323 

4753 

5352 

JMP  ,-l 

2324 

4754 

2111 

ISZ  TPLAG 

2325 

«755 

7200 

LLA 

23  2b 

4756 

4512 

IBM 

2327 

4757 

0150 

T M 1 GAP 

2330 

4760 

6721 

MTTH 

2331 

4761 

536P 

JMP  .-1 

2332 

4762 

2111 

ISZ  TPLAG 

2333 

4/63 

72O0 

LLA 

2334 

4764 

4512 

IBM 

2335 

4 765 

0010 

KEWINO 

2336 

4766 

6721 

MTTH  ' 

2337 

4767 

5366 

JMP  .-1 

2340 

4770 

2111 

ISZ  TPLAG 

2341 

47  7 1 

6032 

ACC 

2342 

47  7 2 

6002 

iUF 

2345 

4TT3 

6141 

LlNC 

2344 

IMODE 

2345 

0774 

0643 

LOP  3 

2346 

0775 

0076 

SET  1 16 

2347 

077b 

0701 

0701 

2350 

0777 

007  7 

SET  I 17 

2351 

1000 

7300 

7300 
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2352 

1.101 

6016 

JMP  16 

2353 

1302 

1460 

TIME, 

SAt  I 

2354 

1203 

0212 

212 

2355 

1004 

7052 

Sw  1 , 

JMP  EX  I T2 

2 35t> 

1005 

00  7 7 

SET  I 17 

235  7 

1006 

1777 

1777 

2360 

i,i;i7 

1020 

LOA  I 

2361 

l o l o 

7014 

JMP  RuBOUT 

23b2 

1011 

5004 

STC  Sw  1 

2363 

1012 

3003 

ADD  TIME*! 

2 364 

1013 

7036 

JMP  STORE 

2365 

1^14 

1455 

HUBOUT , 

SAE  15 

236b 

1015 

7025 

JMP  RET 

23b  7 

1016 

0217 

ASK  17 

2370 

1017 

7 021 

JMP  .*2 

2371 

1020 

7052 

JMP  EXIT2 

2372 

1021 

0237 

XSK  I 17 

2373 

1022 

1020 

LI)  A I 

2374 

1023 

0334 

334 

2375 

1024 

7 050 

JMP  PRNT 

2376 

1025 

1460 

RET  , 

SAt  I 

2377 

1026 

0215 

215 

24O0 

1027 

7036 

JMP  STORE 

2401 

1030 

o5O0 

1UB 

2432 

1031 

6046 

6046 

2403 

1032 

1020 

LOA  1 

2404 

1033 

7 052 

JMP  t X I T 2 

2405 

1034 

5004 

STC  SW1 

2406 

10  35 

7057 

JMP  CLEER 

2407 

1036 

1057 

STORE, 

STA  17 

24  10 

1037 

5702 

STC  TEMP2 

2411 

1040 

1000 

LOA 

2412 

1041 

0017 

17 

2413 

1042 

1460 

SAE  I 

2414 

1243 

1742 

LM0 

2415 

1044 

3703 

AOO  NtGTIV 

2416 

1 045 

4017 

STC  17 

2417 

1046 

1000 

LOA 

2423 

1047 

1702 

TEMP2 

2421 

1050 

0500 

PRN  T , 

10B 

2422 

1 J51 

b046 

6046 

2423 

1052 

0002 

EXIT2, 

POP 

2424 

PMODE 

2425 

5053 

6032 

KCC 

2426 

5054 

67/1 

REST 

2427 

5055 

6042 

TTY, 

ICF 

2430 

5056 

677  1 

RtST 

2431 

lmode 

2432 

105/ 

001  1 

CLEER, 

CLR 

24.33 

1060 

3722 

ADD  K400 

2434 

1061 

5670 

STC  CU0E1 

2435 

1062 

3723 

ADO  K 1 000 

2436 

106  3 

56  7 1 

STC  COOt 2 

2437 

1064 

1020 

LOA  I 

2440 

1 265 

1400 

1400 

2441 

1066 

5672 

STC  C00E3 

2442 

1 Ob7 

3724 

AOO  K 2000 

2443 

1070 

5673 

STC  C0DE4 

2444 

1071 

1020 

LOA  I 

2445 

1072 

3400 

3400 

2446 

1073 

5674 

STC  C0DE7 

2447 

1074 

3725 

ADO  K 4000 

2450 

1075 

5675 

STC  CODES 

/ wAS  IT  A LINEFEtO? 
/NO, 


/WAS  IT  A RUBOUT7 
/NO. 

/YES. 

/\ 

/WAS  IT  A RETURN? 

/NO, 

/TLS 

/YES 


/SAFETY  CHECK  TO  PREVENT 
/WRITING  OVER  THt  PROGRAM, 


/TLS 
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2451 

1076 

1020 

LU»  I 

2452 

1077 

4400 

4400 

2453 

1100 

5676 

8TC  COOt 4 

2454 

1101 

1020 

LUA  1 

2455 

1102 

5000 

5000 

2456 

1103 

567  7 

STC  CODE  1 0 

2457 

1104 

1020 

LOA  1 

2460 

1105 

7000 

7000 

2461 

1106 

5700 

STC  CODE13 

2462 

1107 

1020 

LUA  I 

2463 

1110 

64014 

6400 

2464 

1111 

5701 

STC  CODE  14 

2465 

1112 

1037 

TSTCHH, 

LOA  I 17 

2466 

1113 

1452 

SAE  12 

/IS  IT  A SPACE? 

2467 

1114 

7116 

JMP  .*2 

/NO 

24711 

1115 

7412 

JMP  CODE 

/TES 

2471 

1116 

1454 

SAE  14 

/IS  IT  A DASH 

2472 

1117 

7121 

JMP  BSEC 

/NO 

2473 

1120 

7255 

JMP  ASEC 

/YES 

2474 

1121 

1453 

BSEC, 

SAE  13 

/IS  IT  A COLON? 

2475 

1122 

7124 

JMP  ,42 

/NO 

2476 

1123 

7146 

JMP  BMXN 

/YES 

2477 

1124 

1551 

bcl  ii 

2500 

1125 

1140 

ADM 

2501 

1126 

1677 

COOE10 

2502 

1127 

1037 

LUA  I IT 

2503 

1130 

1454 

SAE  14 

/IS  IT  A DASH? 

2504 

1131 

7133 

JMP  .42 

/NO 

2505 

1132 

7255 

JMP  ASEC 

/TES 

2506 

1133 

1453 

SAC  13 

/COLON? 

2507 

1134 

7136 

JMP  .*2 

/NO 

2510 

1135 

7146 

JMP  BMXN 

/TES 

2511 

1136 

1551 

BCL  11 

2512 

1137 

0244 

MOL  4 

2513 

1140 

1140 

ADM 

2514 

1141 

1677 

LODE  1 0 

2515 

1142 

1037 

LUA  1 17 

2516 

1143 

1454 

SAE  14 

/0A3H? 

2517 

1144 

7146 

JMP  .42 

/NO, ASSUME  IT  IS 

A COLON 

2520 

1145 

7255 

JMP  ASEC 

/TES 

2521 

1146 

1037 

Bm  I N , 

LOA  1 17 

2522 

1147 

1453 

SAE  13 

/COLON? 

2523 

1150 

7152 

JMP  .42 

/NO 

2524 

1151 

7174 

JMP  BrtOURS 

2525 

1152 

1551 

BCL  11 

2526 

1153 

1140 

AOM 

2527 

1154 

1676 

L00E9 

2530 

1155 

1037 

LUA  I IT 

2531 

1156 

1454 

SAE  14 

/OASM? 

2532 

1157 

7161 

JMP  .42 

/NO 

253  3 

1160 

7255 

JMP  ASEC 

/YES 

2534 

1161 

1453 

SAE  13 

/COLON? 

2535 

1162 

7164 

JMP  .42 

/NO 

2536 

1163 

7174 

JMP  BMOUPS 

/YES 

2537 

1164 

1551 

BCL  11 

2540 

1165 

0244 

MOL  4 

2541 

1166 

1140 

AOM 

2542 

1167 

1676 

CODES 

2543 

1170 

1037 

LUA  1 17 

2544 

1171 

1454 

SAE  14 

/U ASM? 

2545 

1 1 7 «r 

7174 

JMP  .42 

/NO, ASSUME  IT  IS 

A COLON 

2546 

1173 

7255 

JMP  ASEC 

/YES 

2547 

1174 

1037 

BhOURSi 

LOA  I IT 

\ 
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£550 

£551 

2552 

2553 

2554 

2555 
255b 
2557 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 
2600 
2601 
2602 

2603 

2604 

2605 

2606 
2607 
2610 
2611 
2612 

2613 

2614 

2615 

2616 
2617 
2620 
2621 
2622 

2623 

2624 

2625 

2626 
2627 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2640 

2641 

2642 

2643 

2644 

2645 

2646 


1175 

1453 

SAE 

13 

1176 

7200 

JMP 

.♦2 

1177 

7222 

JMP 

BDAYS 

1200 

1551 

bCL 

11 

1201 

1140 

AOM 

1202 

1675 

COOES 

1203 

1037 

LDA 

I 17 

1204 

145« 

3AE 

14 

1205 

7207 

JMP 

.♦2 

1206 

7255 

JMP 

ASEC 

1207 

1453 

SAE 

13 

1210 

7212 

JMP 

.♦2 

1211 

7222 

JMP 

boats 

1212 

1551 

BCL 

ii 

1213 

0244 

HOL 

4 

1214 

1140 

ADM 

1215 

1675 

CODES 

1216 

1037 

LDA 

I 17 

1217 

1454 

SAE 

14 

1220 

7222 

JMP 

.♦2 

1221 

7255 

JMP 

ASEC 

1222 

1037 

80AY3, 

LOA 

I 17 

1223 

1454 

SAE 

14 

1224 

7226 

JMP 

.♦2 

1225 

7255 

JMP 

ASEC 

1226 

1551 

BCL 

11 

1227 

1140 

ADM 

1230 

1674 

COOE7 

1231 

1037 

LOA 

I 17 

1232 

1454 

SAE 

14 

1233 

7235 

JMP 

.♦2 

1234 

7 255 

JMP 

ASEC 

1235 

1551 

BCL 

11 

1236 

0244 

KOL 

4 

1237 

1140 

AOM 

1240 

1674 

CODE7 

1241 

1037 

LOA 

I 17 

1242 

1454 

SAE 

14 

1243 

7245 

JMP 

.♦2 

1244 

7255 

JMP 

ASEC 

1245 

1551 

BCL 

11 

1246 

0246 

KOL 

6 

1247 

1140 

AOM 

1250 

1675 

COOES 

1251 

1037 

LOA 

1 17 

1252 

1452 

SAE 

12 

1253 

7255 

JMP 

.♦2 

1254 

7412 

JMP 

CODE 

1255 

1037 

ASEC, 

LOA 

1 17 

1256 

1452 

SAE 

12 

1257 

7261 

JMP 

.♦2 

1 260 

7412 

JMP 

COOE 

1261 

1453 

SAE 

13 

1262 

7264 

JMP 

.♦2 

1263 

7306 

JMP 

AMjN 

1264 

1551 

BCL 

11 

1265 

1140 

ADM 

1266 

16/3 

CODE4 

1267 

1037 

LDA 

I 17 

1270 

1452 

SAE 

12 

1271 

72/3 

JMP 

.♦2 

1272 

7412 

JMP 

COOE 

1273 

1453 

SAE 

13 

/COLON? 

/NO 

/YES 


/0A3M? 

/NO 

/YES 

/COLON? 

/NO 

/YES 


/DASH? 

/NO, ASSUME  IT  IS  A COLON 
/YES 

/DASH 

/NO 

/yes 


/OASM 


/QASHT 


/SPACE? 

/NO  ASSUME  IT  IS  A 0A8H. 
/YES 

/SPACE? 


/COLON? 


/SPACE? 

/NO 

/YES 

/COLON 


42 


2647 

1274 

727b 

J m p ,»2 

2650 

1275 

7 30b 

JMP  AMIN 

2bbl 

127b 

1551 

OCL  11 

2652 

1277 

0244 

MOL  4 

2653 

1300 

1140 

AUM 

2654 

1 501 

1673 

LUDE4 

ibbS 

I3e2 

1037 

LOA  I 17 

2656 

130  3 

1452 

SAE  12 

/SPACE? 

2657 

1304 

730b 

JMP  .+2 

/NO  t ASSUMt 

IT 

IS 

A 

COLON 

26  6U 

130b 

7412 

JMP  COOfc 

£bb  1 

130b 

1037 

AMIN, 

LOA  I 17 

abba 

1307 

1453 

SAE  13 

/COLON? 

abbs 

1310 

7312 

JMP  .*2 

abba 

1311 

7334 

JMP  AMOUR 

abb5 

1312 

1551 

BCL  11 

abbb 

1313 

1140 

AUM 

abb? 

1314 

lb/2 

LUDEJ 

able 

131b 

1037 

LUA  I 17 

ab7i 

1 3 lb 

1452 

SAE  12 

/SPACE? 

ab7  a 

1317 

7321 

JMP  , *£ 

ab7j 

1320 

7412 

JMP  CODE 

ab7« 

1321 

1453 

SAt  13 

/COLON? 

2675 

1322 

7324 

JMP  ,42 

ab7b 

1323 

7334 

JMP  AHOUR 

3b7  7 

1324 

1551 

BCL  11 

2700 

1325 

0244 

MOL  4 

a7ei 

132b 

1140 

AOM 

a7aa 

1327 

1672 

L00E3 

2703 

1330 

1037 

LOA  I 17 

370a 

1331 

1452 

SAE  12 

/SPACE? 

a70s 

133? 

7334 

JMP  .*2 

/NO  ASSUME 

IT 

IS 

A 

COLON, 

a70b 

1333 

7412 

JMP  CODE 

2707 

1334 

1037 

AMOUR i 

LOA  I 17 

2710 

1535 

1453 

SAE  13 

/COLON? 

2711 

133b 

7340 

JMP  .*2 

2712 

1337 

7362 

JMP  AOAY 

2 7 1 S 

1340 

1551 

BCL  It 

27  ia 

1341 

1140 

AOM 

271b 

1342 

1671 

C00E2 

271b 

1343 

1037 

LOA  I 17 

2717 

1344 

1452 

SAE  12 

/SPACE? 

2720 

1345 

7347 

JMP  .42 

2721 

134b 

7412 

JMP  CODE 

27  22 

1 347 

1453 

SAE  13 

/COLON 

2723 

1350 

7352 

JMP  ,42 

272U 

1351 

7ib2 

JMP  aday 

2 72b 

1352 

1551 

BCL  11 

272b 

1353 

0244 

KUL  4 

2727 

1354 

1140 

AUM 

2730 

1355 

1671 

L0DE2 

2731 

1 Jbb 

1037 

LOA  I 17 

2732 

1357 

1452 

SAE  12 

/SPACE 

2733 

1360 

7 362 

JMP  ,42 

/NO  * ASSUME 

IT 

IS 

A 

COLON, 

2 7 3« 

1 3b  1 

7412 

JMP  CODE 

2735 

1 3b2 

1037 

AUAY, 

LUA  I 17 

273b 

1 3b3 

1452 

SAE  12 

/SPACE 

2737 

1 3b« 

7 366 

JMP  .42 

27a? 

1365 

7412 

JMP  CODE 

27ai 

1 36b 

1551 

OCL  It 

2742 

1367 

1140 

AUM 

27«3 

1370 

1670 

CUOtl 

27  4a 

1371 

1037 

LUA  I 17 

2745 

1372 

1452 

SAE  12 

/SPACE 

43 
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1373 

7 375 

JMP 

.*2 

2747 

1374 

7412 

J fiP 

coot 

2750 

1375 

1551 

bCl 

11 

275! 

1376 

0244 

hOL 

4 

2752 

1 37  7 

l 140 

AUM 

2753 

1400 

16/0 

LODE  1 

2754 

1 401 

1037 

LUA 

I 17 

2755 

1402 

1452 

BAfc 

12 

2756 

1403 

/405 

JMP 

.♦2 

5757 

1404 

/412 

JMP 

LODt 

2/01/ 

1405 

1551 

BCL 

11 

276  1 

1406 

0246 

HUL 

6 

2762 

1407 

1 1 40 

AIJM 

2763 

1410 

16/1 

L0DE2 

2764 

1411 

1037 

LUA 

I 17 

2765 

1412 

1037 

CODE, 

LUA 

I 17 

2766 

1413 

1137 

aoa 

I 17 

2 7bT 

1414 

1 400 

J>A£ 

1 

2773 

1415 

0646 

B46 

277  1 

1416 

7430 

JMP 

SP 

2772 

1417 

1000 

LUA 

27  73 

1420 

1700 

LODE  1 3 

2774 

1421 

3/13 

ADD 

62 

27  75 

1422 

5 700 

STC 

COOE  1 3 

2 7 7 6 

1 «23 

3701 

ADD 

CODE  14 

2777 

1424 

5712 

ADD 

ONE 

330(1 

1425 

5701 

STC 

COOE 14 

3301 

1426 

/ 5b7 

JMP 

STHOBt 

3002 

1427 

7052 

JMP 

EXIT2 

3003 

1 430 

1460 

SP, 

SAE 

I 

3004 

1431 

064  3 

643 

3005 

1432 

7441 

JMP 

PD 

3006 

1433 

1000 

lda 

3307 

1434 

1701 

LODE  14 

3013 

1435 

3713 

ADD 

62 

3011 

1436 

57ol 

STC 

CODE  1 4 

3312 

1437 

/ 5b  7 

JMP 

STROBt 

3313 

1440 

/ 052 

JMP 

txIT2 

3014 

1441 

1460 

fu. 

SAE 

1 

3015 

1442 

0612 

612 

3 U6 

1443 

7455 

JMP 

wv 

3017 

1444 

1000 

lda 

3320 

1445 

J 700 

LODt  1 3 

3021 

1440 

3712 

ADD 

OnE 

3322 

1447 

5700 

sTC 

CODE  1 3 

3323 

1450 

3701 

ADD 

Coot  14 

3024 

1451 

3714 

ADD 

64 

3025 

1452 

5701 

sTC 

CU0E14 

3026 

1453 

7 5o  7 

JMP 

STROBE 

3027 

1454 

7052 

JMP 

EXIT2 

303O 

1455 

1460 

MV, 

SAE 

I 

3331 

1456 

0650 

650 

3032 

1457 

74  7 1 

JhP 

PF 

3033 

1460 

1000 

LDA 

3034 

1461 

17  00 

LUDE13 

30  7 5 

1462 

3712 

ADD 

ONE 

30- 

1463 

5700 

STC 

CODE  13 

303/ 

1464 

3701 

ADD 

CODE  1 4 

3040 

1465 

3715 

ADD 

6 10 

3341 

1466 

5 7u  1 

STC 

CODE  1 4 

3042 

1467 

756/ 

JMP 

STROBE 

334  3 

14  70 

7052 

JMP 

txIT2 

3044 

1471 

1460 

FP, 

SAE 

1 

/SPACE 


/ASSUME  A SPACE  MERE  . 


/St ARCH  TO  START 


/STOP 


/F ORRARD 


/REVERSE 


A 
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3«os 

1072 

0610 

610 

3006 

1073 

7506 

JMP  F H 

3007 

107o 

1000 

LUA 

3^50 

1075 

1700 

LOOt  1 5 

305J 

1076 

371? 

AUD  ONE 

3052 

1077 

5700 

STC  CQOt  13 

3053 

1500 

1022 

LOA  I 

3050 

1501 

0020 

20 

3055 

1502 

1100 

AON 

305b 

1503 

1 701 

cuotio 

3057 

1500 

7567 

JMP  STROBE 

30b  0 

1505 

705? 

JMP  E X I T 2 

30b  1 

1506 

1 060 

EH, 

SAE  I 

30b2 

1507 

0630 

630 

3063 

1510 

7523 

JMP  RC 

3060 

1511 

1000 

LOA 

3065 

1512 

170O 

LODE  1 3 

3066 

1513 

3712 

ADD  ONE 

30b  7 

1510 

5700 

STC  CODE  1 3 

3070 

1515 

1020 

LOA  I 

3071 

1516 

0030 

30 

307? 

1517 

1100 

ADM 

3073 

1520 

1701 

COOElO 

3070 

1521 

7567 

JMP  STROBE 

3075 

1522 

7052 

JMP  EXIT2 

3076 

1523 

1060 

RC, 

SAE  I 

3077 

1520 

0625 

625 

3100 

1525 

7 537 

JMP  SC 

3101 

1526 

1000 

LOA 

3102 

1527 

1700 

CODE  1 3 

3103 

1530 

3715 

AOO  K 1 0 

3100 

1531 

5700 

STC  CODE  1 3 

3105 

1532 

3701 

ADD  COOElO 

310b 

1533 

3712 

ADO  ONE 

3107 

1530 

5701 

STC  COOElO 

3110 

1535 

7567 

JMP  STROBE 

3111 

1536 

7611 

JMP  INTRVL 

3112 

1537 

1060 

SC, 

SAE  1 

3113 

1500 

0626 

626 

3110 

1501 

7553 

JMP  CN 

3115 

1502 

1000 

LOA 

3116 

1503 

1700 

CODE  1 3 

3117 

1500 

3710 

AOO  KO 

3120 

1505 

5700 

STC  C0DE13 

3121 

1506 

37tol 

AOO  CODE  1 0 

3122 

1507 

3712 

ADD  ONE 

3123 

1550 

5701 

STC  COOElO 

3120 

1551 

75b7 

JMP  STROBE 

3125 

1552 

7611 

JMP  INTRVL 

3126 

1553 

1060 

CN, 

SAE  I 

3127 

1550 

0621 

621 

3130 

1555 

7052 

JMP  EXIT2 

3131 

155b 

1000 

LOA 

313? 

1557 

1700 

LODE  1 3 

3133 

1560 

3712 

ADD  ONE 

3130 

1561 

5700 

STC  CODE  1 3 

3135 

1562 

3701 

AOO  COOElO 

3136 

156  3 

3710 

AOO  KO 

3137 

1560 

5701 

STC  COOElO 

Sion 

1565 

75b7 

JMP  STROBE 

3101 

1566 

7611 

JMP  INTRVL 

3102 

1567 

1000 

STROBt, 

LOA 

3103 

1570 

0000 

0 

45 

- 

fc 


/^ AST  FORWARD 


/►AST  REVERSE 


/RECYCLE 


/SINGLE  cycle 


/CONTINUOUS 


i 


3144 

1571 

5610 

314S 

1572 

0065 

314b 

1573 

1667 

3147 

1574 

0066 

3 1 So 

1575 

7 765 

3151 

1576 

1025 

3152 

1577 

0500 

3153 

1600 

6306 

3154 

1601 

0500 

3155 

1602 

6304 

315b 

1603 

O50O 

3157 

1604 

6301 

3160 

1605 

7603 

3161 

1606 

0226 

3162 

1607 

7576 

3 1 bS 

161? 

000? 

3164 

1611 

0024 

3165 

1612 

162? 

3166 

1613 

004? 

3167 

1614 

0004 

3170 

1615 

0002 

3171 

3172 

5616 

b?02 

3173 

5617 

4503 

3174 

562? 

1105 

3175 

5621 

3106 

3176 

5622 

6141 

3177 

3200 

1623 

046? 

3201 

1624 

6251 

3202 

1625 

0500 

3203 

1626 

6303 

3204 

1627 

7623 

3205 

163? 

0015 

320b 

1631 

1620 

3207 

1632 

4040 

3210 

1633 

0014 

3211 

1634 

1020 

3212 

1635 

4323 

3215 

1636 

064? 

3214 

1637 

1040 

3215 

1640 

2205 

3216 

1641 

0644 

3217 

1642 

7644 

3220 

1643 

6635 

3221 

1644 

050? 

3222 

1645 

6303 

3223 

1646 

/650 

3224 

1647 

7644 

3225 

1650 

102O 

322h 

1651 

0236 

3227 

1652 

0640 

5230 

1653 

1040 

3231 

1654 

2205 

3232 

1655 

0015 

3233 

1656 

156? 

3234 

1657 

404? 

5235 

1660 

0014 

3236 

1661 

6612 

3237 

1662 

050? 

3240 

1663 

b?32 

3241 

1664 

6171 

3242 

1665 

U00? 

STC  tXlT4 
St  T I 5 
LQOtl-1 
StT  I 6 

-12 

LOAD,  LUA  I 5 
I OB 
OiO  b 
10b 
6304 
IUB 
b 30 1 
JMP  ,«2 
X 3K  1 b 
JMP  LOAD 

t x i r 4 f 0000 

INTNVL.  spa 

OSt  1 

40 

tSP 

POP 

PMODt 

1UP 

API 

TAO  ITAPE 

OCA  RTAPE 

LINC 

LMOOE 

SNS  I 0 

JMP  ENABLE 

10B 

SiOi 

JMP  .-4 

NT  A 

BSE  I 

4040 

ATP 

LUA  I 

ADCUN 

LUP  0 

3 r A 

VtCCLK 12000 
LDP  4 
JMP  ,*2 

JT  APE i J BP  TAPE 
IUB 
bS05 
JMP  ,*2 
JMP  .-3 
LO*  1 
AUOPP 
LDP  0 
S'lA 

VtCCLP 12000 
nTA 
DLL  I 
4040 

aTR 

JMP  NHAP1JP 

10B 

6032 

JMP  NEm&P 
TTPET  i 0 


/LOAD  OUTPUT  REGISTER 
/STROBE 

/SKIP  ON  READY 


/SKIP  ON  INTERVAL 


/SHIP  ON  INTERVAL 


/KCC 
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3243 

166b 

OV0O 

LUBlO* , 

0 

3244 

1667 

0000 

. 

0 

3245 

167V 

0400 

CUDE1, 

400 

3246 

1671 

1000 

C0DE2, 

1000 

3247 

1672 

1400 

CODE  i , 

1400 

3250 

1673 

2000 

COOt  4 , 

1000 

3251 

1674 

3460 

CUQE7  , 

3400 

3252 

1675 

4000 

CODES, 

4000 

3253 

167b 

4400 

C00t9, 

4400 

3254 

1677 

5000 

CODE  1 3, 

5000 

3255 

1700 

7000 

CODE  1 3 , 

/000 

3256 

1701 

6400 

CUOt 14, 

0400 

3257 

1702 

0000 

TEMP2, 

0 

326V 

1703 

7 7 76 

NEC  T I V , 

-1 

3261 

17  04 

7760 

MASKfc  , 

/ 760 

3262 

1705 

0240 

SPACE, 

040 

3263 

1706 

0272 

COLON, 

072 

3264 

1707 

0255 

MINUS, 

055 

3265 

1710 

03/7 

MAS*A, 

377 

3266 

1711 

0000 

elac, 

0 

3267 

1712 

oooi 

ONE, 

1 

327V 

1713 

0002 

K2, 

0 

3271 

1714 

0004 

K4, 

4 

3272 

1715 

0010 

K 1 0 , 

10 

3273 

1716 

0020 

*20, 

00 

3274 

1717 

0040 

*40, 

40 

327b 

172V 

0100 

*100, 

100 

3276 

1721 

0200 

K200, 

000 

3277 

1722 

0400 

*400, 

400 

330V 

1723 

1000 

*1000, 

1000 

3301 

1724 

2000 

*2000, 

0000 

3302 

1725 

4000 

*4000, 

4000 

3303 

1726 

0000 

XSAMP, 

0 

3304 

1727 

0000 

GROUP, 

0 

330b 

1730 

0000 

RCDfUL. 

0 

3306 

1731 

0000 

LUGP, 

0 

3307 

1732 

0000 

MIGP, 

0 

3310 

1733 

0000 

NOSIZE, 

0 

3311 

1734 

0000 

ADNES, 

0 

3312 

1735 

oooo 

NCOS*P, 

0 

3313 

1736 

0000 

I X TEN , 

0 

3314 

1737 

0000 

IXSEVN, 

0 

3315 

1/40 

0000 

MCHAN , 

0 

3316 

1741 

0000 

OMAN, 

0 

3317 

1742 

oooo 

CM0 , 

0 

332V 

1743 

0000 

CHI, 

0 

3321 

1 744 

0000 

CM2, 

0 

3322 

1745 

0000 

CM3, 

0 

3323 

1746 

oooo 

CH4, 

0 

3324 

1747 

0000 

CM5, 

0 

3325 

1750 

0000 

CH6  , 

0 

3326 

1751 

0000 

CM7, 

0 

332/ 

1752 

0000 

CMS, 

0 

3330 

1753 

0000 

CH9, 

0 

3331 

1754 

0000 

CM10, 

0 

3332 

1755 

0000 

C M 1 1 , 

0 

3333 

1756 

0000 

CM  1 2 , 

0 

3334 

1757 

0000 

CM13, 

0 

3335 

176.* 

0000 

Cm  1 4 , 

0 

3336 

1761 

oooo 

CM  1 5 , 

0 

3337 

SfcGMf 

3340 

•1 

3341 

0001 

oooo 

ANSI, 

0 

47 


I 


334* 

3343 

0i)10 

3344 

3345 

003b 

0000 

3346 

3347 

0:i53 

w'  V3  v) 

3350 

3351 

0232 

4747 

335? 

3353 

1000 

0640 

3353 

1001 

0116 

3353 

100? 

0114 

3353 

1003 

1707 

3353 

1004 

4 024 

3353 

1005 

1740 

3353 

1006 

0«11 

3353 

1007 

0711 

3353 

1010 

2401 

3353 

3354 

1011 

1443 

3354 

1012 

0603 

3354 

1013 

1716 

3354 

1 Ml  4 

2605 

3354 

1015 

2223 

3354 

1016 

1117 

3354 

If  17 

1640 

3354 

1 M?0 

4020 

3354 

1021 

2217 

3354 

1022 

0722 

3354 

1023 

0115 

3354 

3355 

1024 

4043 

3355 

3356 

1025 

4743 

3356 

3357 

1026 

4043 

3357 

1027 

4040 

3357 

1030 

4040 

3357 

1031 

4040 

3357 

1032 

4040 

3357 

1053 

4040 

3357 

1034 

1305 

3357 

1035 

1616 

3357 

1036 

1124 

3357 

1037 

1040 

3357 

1040 

27  40 

3357 

1041 

2324 

3357 

1042 

0526 

3357 

1043 

051b 

3357 

3360 

1044 

2343 

336P 

1045 

4040 

3360 

1046 

4040 

3360 

104  7 

4040 

3360 

1050 

4040 

3360 

1051 

4040 

3360 

1052 

4040 

33bP 

1053 

2523 

3360 

1054 

0106 

3360 

1055 

4023 

3 360 

1056 

0115 

3360 

1057 

4061 

3360 

1060 

7167 

• 10 

ANSi,  0 

• 3b 

ANSc i,  0 

• ■53 

ANS4,  0 

• d3a 

ANSb, 

*1000 


htSS0,  TEXT  If  ANALOG  TO  DIGITAL 


FLONVtRSlUN  PROGRAM 


Kt'NNITM  W STEVENS 


3360 

3 361 

X 5*6 1 

6743 

USAF  SAM  1477 

33b  t 
3362 

1062 

4 740 

3 562 

1263 

4347 

3362 

33b3 

1264 

4043 

3363 

336U 

1 ("65 

4740 

33ba 

1 tibb 

4340 

33ba 

I?  6 7 

4040 

33ba 

1070 

4050 

3364 

1071 

2431 

3364 

1072 

2005 

3364 

107  3 

4014 

3364 

1074 

1116 

3364 

1075 

0506 

33ba 

1P76 

0505 

3364 

1077 

0440 

3364 

1100 

2417 

3364 

1101 

4003 

3364 

1102 

1716 

3364 

1103 

2411 

3364 

1104 

1625 

3364 

1105 

0551 

3364 

1106 

4034 

3364 

336b 

1107 

llUl 

CTYPt  LINEFEED  TO  CONTINUE)  \Z 

3365 

1110 

2340 

3365 

lilt 

2410 

3365 

1112 

0540 

3365 

1113 

0«U 

3365 

1114 

0711 

3365 

1115 

2401 

3365 

1116 

1440 

3365 

1117 

2401 

3365 

1120 

2005 

3365 

1121 

4024 

3365 

1122 

2201 

3365 

1123 

1623 

3365 

1124 

2017 

3365 

3366 

1125 

2224 

MESS  1 r TEXT  ZHI3  THt  DIGITAL  TAPE  TRANSPORT 

3366 

1126 

4324 

3366 

1127 

1005 

3366 

1130 

4024 

3366 

1131 

2561 

3366 

1132 

6040 

3366 

1133 

1722 

3366 

1134 

4024 

3366 

1135 

1005 

3366 

1136 

4004 

3366 

1137 

0124 

3366 

1140 

2515 

3366 

3367 

1141 

7 743 

THE  Tu 1 0 OR  THE  DATUM? 

3367 

1142 

5024 

3367 

1143 

3120 

3367 

1144 

0540 

3367 

1145 

2440 

3367 

1146 

1722 

3367 

1147 

4004 

3)67 

1150 

5156 
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3 367 
3367 
337/ 
337/ 
337/ 
337  J 
337  1 
337  1 
337  ! 
337  1 
337  J 
3 3 7J 
3371 
337  1 
337  1 

3371 
337  1 

3372 
3 372 
3372 
3372 
3372 
3372 
3372 
3372 
3372 
3372 
3372 
3372 
3372 

3372 

3373 

3373 

3374 
3374 
3374 
3374 
3374 
3374 
3374 
3374 
3374 
3374 

3374 
337b 
337b 
337b 

3375 
3375 
337b 
3375 
3375 
337b 
337b 
3375 
337b 
3375 
3375 
3375 
3375 
3375 
3375 
3375 


1151 

4/74 

1152 

6061 

uss 

4347 

1154 

4/43 

1155 

1 123 

1 15*. 

4024 

1157 

1005 

1160 

4001 

1161 

5704 

1162 

4/24 

1163 

012/ 

1164 

0540 

1165 

1605 

1 lb6 

274/ 

1167 

1722 

117/ 

4325 

1171 

2305 

1172 

04/7 

1173 

4/5/ 

1174 

2431 

1175 

2/05 

1176 

4/lb 

1177 

4017 

12/P 

224/ 

1201 

2551 

1202 

564/ 

1203 

7 46/ 

1204 

6143 

1205 

474/ 

1206 

4301 

12H7 

57/4 

1210 

4/22 

1211 

05/5 

1212 

1440 

1213 

1617 

1214 

564/ 

1215 

7 460 

1216 

6634 

1217 

1/27 

122/ 

1114 

1221 

144/ 

1222 

2410 

1223 

054/ 

1224 

2/01 

1225 

22/1 

1226 

1505 

1227 

24/5 

123/ 

2223 

1231 

4/06 

1232 

2217 

1233 

154/ 

1234 

2410 

1235 

054/ 

1236 

2022 

1237 

0526 

124? 

1117 

(TYPE  T UR  0).  <01 


IS  THt  A/D  TAPE  NEh  OR 


USED?  ( I YPE  N OR  UJ.  <01 


A/O  RfctL  NO.  <06\Z 


MtSS2,  TEXT  ZHwXLL  THE  PARAMETERS  TROH  THE  PREVIOUS 
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33/6 

33Tb 

3376 

3376 

337b 

3376 

3376 

3376 

3376 

3376 

3376 

3376 

3377 
3377 
3377 
3377 
3377 
3 377 
3377 
3377 
3377 
3377 
3377 
3377 
3377 
3377 
3377 
3377 
3377 
3377 
340fc 
3400 

3400 
340  1 

3401 
3401 
3401 
3401 
3401 
3401 
3401 
3401 
3401 
3401 
3401 
3401 
34w  1 
3401 
3401 
3401 

3401 

3402 
3402 
3402 
3402 
3402 
3402 
3402 
3402 

3402 

3403 
3403 
3403 


1241  2523 

1242  4310 

1243  0611 

1244  1405 

1245  4002 

1246  0540 

124 7 2523 

1250  0504 

1251  4001 

1252  0701 

1253  1116 

HFILE  ttfc  USED  AGAIN? 

1254  7740 

1255  4311 

1256  6640 

1257  2317 

1260  4024 

1261  3120 

1262  0540 

1263  1605 

1264  2740 

1265  2225 

1266  1640 

1267  2305 

127P  2211 

1271  0114 

1272  4016 

1273  2515 

1274  0205 

IF  SO  TYPt  NEW  RUN  SERIAL  NUMBER 

1275  22 40 

1276  4374 

<08 

1277  607t 

1300  4301 

1301  1604 

1302  4023 

1303  2401 

1304  2224 

1305  1116 

1306  0740 

1307  0722 

1310  1725 

1311  2040 

1312  1625 

1313  1502 

1314  0522 

1315  40/4 

1316  6064 

1317  4034 

AND  STARTING  GROUP  NUMBER  <04  \Z 

1320  1O05 

1321  3020 

1322  0522 

1323  1115 

1324  0516 

1325  2405 

1326  22/2 

1327  4074 

MESS3 r TEXT  ZMEXPERIMENTERI  <20 

1330  6260 

1331  4305 

1332  3020 
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— - 


3403 

1333 

0500 

3«e? 

1334 

1115 

3403 

1335 

0516 

3403 

133b 

0440 

3403 

1337 

1104 

3403 

1340 

7040 

3403 

1341 

7460 

34vi 

3404 

1342 

6043 

3404 

1343 

1017 

3404 

1344 

0040 

3404 

1 345 

1700 

3404 

1346 

0405 

3404 

1347 

0040 

3404 

1350 

1605 

3404 

1351 

150? 

3404 

1350 

0500 

3404 

1353 

7040 

3404 

1354 

7 460 

3404 

3405 

1355 

6443 

3405 

1356 

0711 

3405 

1.35  7 

1«14 

3405 

1360 

4003 

3405 

1361 

1001 

3405 

13b2 

1616 

3405 

1363 

0514 

3405 

1364 

4060 

3405 

1365 

4000 

3405 

1366 

0540 

3405 

1367 

0503 

3405 

1370 

0504 

3405 

1371 

4001 

3405 

1370 

0340 

3405 

137  3 

0116 

3405 

1374 

4005 

3405 

1375 

0411 

3405 

1376 

0440 

3405 

1377 

o3ie> 

3405 

1400 

0116 

3405 

1401 

1605 

3405 

34  06 

1400 

1477 

340b 

1403 

4350 

340b 

1404 

0431 

SuCb 

1405 

0005 

340b 

1406 

4031 

340b 

1407 

4017 

340b 

1410 

0040 

3406 

1411 

1651 

340b 

l«10 

4074 

340b 

3407 

1413 

6061 

3407 

1414 

4316 

3407 

1415 

0515 

3407 

1416 

0205 

3407 

1417 

0040 

3407 

1 400 

1706 

3407 

1401 

4003 

3407 

1400 

1001 

3407 

1403 

1616 

3407 

1404 

0514 

3407 

1405 

0340 

EXPERIMENT  IUI  »2P 


JOH  OWUEK  NUMBERS  <04 


will  channel  a be  used  as  an  edit  channel? 


(TYPE  Y UR  N J <(Pl 


w 


346)7 
3407 
3407 
3407 
3407 
34E7 
346)7 
3407 
3410 
3410 
3410 
3410 
3410 
3410 
3410 
3410 
34  in 
3410 

3410 

3411 
3411 
3411 
3411 
3411 
3411 
3411 
3411 
3411 
3411 
3411 
3411 

3411 
3410 

3412 
3412 
3412 
3412 
3412 
3412 
3412 
3412 
3412 
3412 
3412 

3412 
341? 

3413 
3413 
3413 
3413 
3413 
3413 
3413 

3413 

341.3 

3413 

3413 

3413 

3413 

341J 

3413 

3413 

34U 


142fc 
1427 
14  30 

1431 

1432 

1433 

1434 

143b 

1436 

1437 

1440 

1441 

1442 
*443 

1444 

1445 

1446 

1447 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1500 

1501 

1502 

1503 
150a 
1525 

1506 

1507 
151? 

1511 

1512 

1513 

1514 

1515 

1516 

1517 
1520 


1 116 
0314 
2504 
1 1 16 
0740 
0504 
1124 

2343 
50b''i 
6240 
4 055 
5555 
5555 
4040 
6166 
51/2 
40/4 


6062 

4322 

2516 

4023 
0522 
1101 
1440 
1625 
1502 
0522 
724? 
746? 

7043 
2324 
0122 
2411 
1607 
4007 
2217 
2520 
4016 
2515 
0205 
2272 
407  4 

6064 
4301 
1601 
1417 
0 74? 
2205 
0114 

4024 
1115 
054? 
1525 
1424 
112? 
1411 
0522 
724? 
7460 


NUMBER  06  CHANNELS  INCLUDING  EDITS 


(02  — 16)!  <02 


RUN  SERIAL  NUMBER!  <08 


STARTING  GROUP  number:  <04 


•< 
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ANA10&  WtAL  TIME  MULTIPLIERS  <02 


3413 

iU  1 4 

3414 

3414 

3414 

3414 

3414 

3414 

3414 

3414 

3414 

3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 
3415 

3415 
3a  l o 
341b 
341b 
341b 
341b 
341b 

3416 
341b 
341b 
341b 
341b 
341b 

3416 
341b 

3417 
3417 
3417 
3417 
3417 
3417 
3417 
3417 
3417 
3417 
3417 
3417 
3417 
3417 
342^ 
3420 
3420 
3420 


1521 

1522 

1523 

1524 

1525 

1526 

1527 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 
15b? 

1561 

1562 

1563 

1564 

1565 
15bb 
1567 

1570 

1571 

15T2 

1573 

1574 

1575 

1576 

1577 
160? 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

16151 

1611 

1612 


6243 

2301 

1520 

1411 

1607 

4006 

2205 

2125 

0516 

035 1 
4ibl 
5640 
6460 
6013 
104? 

4062 
5640 
6160 
6013 
1040 

4063 
5640 
6160 
1310 
4040 
6456 
4061 

1310 

4365 

5640 

6ib0 

6010 

4040 

4066 

5640 

0530 

2405 

2216 

0114 

7240 

7460 

6143 

0411 

2611 

0405 

0440 

0231 

4061 

5564 

6071 

6572 

4074 

6064 

3400 

1040 
400  3 
1001 
1616 


SAMPL1N6  7 REQUtNC Y 


1,  400AM  2.  100KM  3,  10KH 


5.  1C0M  6.  EXTERNALS  <01 


OIVIOEU  BY  1-4095S  <04\Z 
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. IKh 


.**_  


342P 

1613 

0514 

3420 

1614 

4011 

3420 

1615 

1606 

3420 

1616 

1722 

3420 

1617 

1601 

3420 

162? 

2411 

3420 

MESS4 , 

TtxT  zh  channel  jnfonhation 

3421 

1621 

1716 

3421 

1622 

4347 

3421 

1623 

6060 

3421 

3421 

1624 

7 4b2 

00«20 

3422 

1625 

6043 

3422 

1626 

4760 

3422 

3422 

1627 

61/4 

01*20 

3423 

1630 

6260 

3423 

1631 

4347 

3423 

1632 

6062 

3423 

3423 

1633 

7462 

02<20 

3424 

1634 

6043 

3424 

1635 

4760 

3424 

3424 

1636 

6374 

03<20 

342b 

1637 

6260 

3425 

1640 

4347 

3425 

1641 

6064 

3425 

3425 

1642 

7462 

04*20 

3426 

1643 

6043 

3426 

1644 

4760 

342b 

3426 

1645 

657  4 

05*20 

3427 

1646 

6260 

3427 

1647 

4347 

3427 

1650 

6066 

3427 

342/ 

1 b5 1 

7462 

06*20 

3430 

1652 

6043 

3430 

1653 

4760 

3430 

3430 

1654 

67  74 

07*20 

3431 

lb55 

6260 

3431 

1656 

4347 

3431 

1657 

6070 

3431 

3431 

1660 

7462 

06*20 

3432 

1661 

6043 

3432 

1662 

4760 

3432 

3432 

1663 

7174 

04*20 

3433 

1664 

6260 

3433 

1665 

4347 

3433 

1666 

61b0 

3433 

3433 

1667 

7462 

10*20 

3434 

1670 

6043 

3434 

1671 

4761 

3434 

3434 

1672 

6174 

11*20 

3435 

1&73 

6260 

3435 

1674 

4347 

war 


3435 

167b 

blc>2 

3435 

i b 7b 

7 4bi 

3435 

lfe77 

6034 

3435 

U«20\Z 

343b 

LlST*Pt»l 

ADAY 

53b2 

AQCON 

4323 

AOOFF 

023b 

ADH 

4702 

A 0 K t S 

5734 

AORtSS 

A 70S 

AHOUK 

533“ 

AMIN 

530b 

ANSI 

5001 

ANS2 

S03b 

ANS3 

5010 

ANS4 

b053 

AN$5 

5232 

apdl 

0 A0  1 

API 

AS03 

A P I ON 

b00b 

ASEC 

5255 

AVECT 

0400 

8AKSP 

4072 

BDAYS 

5222 

BEGIN 

4022 

0HOUBS 

517a 

BM I N 

514b 

BSEC 

5121 

CHAN 

5741 

CMFLD 

?Abl 

CM2 

5742 

CHI 

5743 

C H 1 0 

5754 

CHU 

5755 

Ch  12 

575b 

CM  1 3 

5757 

Cmia 

57bia 

chib 

57bl 

CM2 

5744 

CH3 

5745 

CM4 

574b 

Ch5 

5747 

CH6 

5750 

Ch7 

5751 

C m B 

5752 

CM9 

5753 

Clean 

403c 

CLEER 

5057 

CL* 

0420 

CLOCK 

4502 

CN 

5553 

CODE 

5412 

CODE  1 

5b  70 

CODF10 

5b7  7 

CODt  1 3 

5700 

CODEIA 

5701 

CODE? 

5b7 1 

CODES 

5b72 

CODEA 

5b  7 3 

C00E.7 

5b74 

COOES 

5b75 

CODES 

5b7b 

COLON 

570b 

COMMND 

0707 

CONT 

2053 

COUNT 

072b 

OATFLD 

454b 
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DATUM 

1020 

DtCHlN 

2403 

UISPL* 

P02O 

EhTCHn 

4413 

Elvcmn 

4440 

ENABLE 

4251 

EOF 

0652 

EOT 

4/42 

Exit 

4/04 

exits 

505c 

Exita 

5610 

FO 

5441 

FF 

5471 

FFTCMN 

4466 

filo 

2473 

fill 

4615 

FIvCHN 

4366 

flag 

5711 

FORCmn 

435/ 

fppdff 

0240 

F« 

5506 

FRAMt 

45/5 

FRTCMN 

4461 

GAP 

0100 

GROUP 

572/ 

HUM  ADR 

416/ 

HEADER 

2434 

M I ADR 

46/1 

HIBLOK 

566/ 

MIGP 

5732 

IBM 

4512 

INT 

010/ 

INTRPT 

0403 

INTRVL 

5611 

ITAPE 

0105 

IXSEVN 

5/3/ 

IXTEN 

5736 

JMPAUR 

2315 

JShl 

44/3 

JT  APE 

5643 

KHHO 

4706 

KCIF 

0711 

KCOM 

0720 

KJMS 

1012 

KP004 

101/ 

K0010 

0101 

KP037 

0402 

KiUD 

0443 

Ka3fl0 

0446 

K 04000 

0100 

K 1 0 

5715 

K 1 00 

5/20 

K 1 000 

5723 

K2 

5713 

*20 

5716 

*200 

5/21 

F 2000 

5724 

K4 

5714 

K 4000 

5725 

K 40 

5717 

K 400 

5722 

*5100 

0445 

lnkflo 

4662 

LO*D 

557b 

LOAOPM 

4151 

UOAUH 

4664 

LOBlOK 

5666 

LOGP 

513 1 

LOOP 

2464 

MAGTAP 

0614 

MAG3 

0660 

MAG4 

066  2 

HAGS 

0665 

MASK 

0712 

MASKA 

5710 

MASKt 

5704 

MCHAN 

5740 

MCLA 

6702 

MESS0 

7000 

MESS1 

7107 

MESS2 

7217 

MESS3 

7320 

MESS4 

7607 

MINUS 

570/ 

MK5 

0721 

MTAF 

6712 

MTCm 

6714 

MTCM 

6711 

MTGO 

6722 

MTLC 

6716 

MTHC 

6724 

MTRS 

6706 

MTSF 

6701 

HTTP 

6721 

MBYTE 

0030 

NDEX 

2472 

NEGTIV 

5703 

NEaGP 

4171 

NEWRCD 

4600 

NEwTAP 

4062 

NINCMN 

4422 

NUMfltP 

0444 

NXTOGT 

2412 

ONE 

5712 

PACLB 

3634 

PACEF 

0633 

POL 

0242 

PRNT 

5050 

PUSHJ 

6760 

OR 

7063 

QU 

7000 

RC 

5523 

RCOFUL 

5730 

RCOSI l 

4102 

RCDSKP 

5735 

RCDTWO 

4232 

RDSIZE 

5733 

REAO 

0020 

KEAOWR 

0654 

REFSET 

0672 

REST 

6771 

RESTRT 

2037 

RET 

5025 

RETA 

0671 

RETURN 

2433 

HER  IN 

0650 

59 


REWIND 

0010 

WELD 

6773 

WS  Tk 

6 7 7a 

RTAPE 

PI  *6 

RUBOUT 

5014 

RV 

NRSS 

RVEC 

6 7 75 

SAMRCO 

4 306 

SAHXIT 

460  7 

SC 

653  7 

SEARCH 

4034 

STTCNT 

0643 

SETflAT 

l 000 

SEVCMN 

4404 

SIXCHN 

4375 

SMLV 

6 7 72 

SR 

5430 

SPACE 

57P5 

SPACES 

0070 

SPACER 

0066 

SPECAl 

2353 

SSTK 

6 7 7 0 

START 

4122 

STATUS 

0710 

STORE 

5036 

STRHBt 

5567 

STUS 

Ml  10 

svtc 

6777 

Sw  1 

5004 

TABLE 

2502 

TAPE 

4635 

TAPER 

0716 

TEMP 

2417 

TEMPI 

2424 

TEMPS 

5702 

TEMP3 

2161 

tenchn 

4431 

tflag 

YU  11 

thrchn 

4350 

time 

5002 

TM 

0130 

trtchn 

4454 

TSTCMR 

5112 

T T APE 

0104 

TTY 

5055 

TUI0 

0600 

TWLCMN 

4447 

TwOCMN 

4341 

TYPET 

5665 

UNPAK 

4542 

VECCLR 

0205 

VECT 

0200 

WAIT 

4255 

WHERE 

0705 

WRAPUP 

4612 

WRIT 

4640 

WRITAP 

4305 

WRITt 

0040 

XSAMP 

5T26 

xxxx 

6704 

— 


APPENDIX  B 


MAXIMUM  SAMPLING  FREQUENCIES 


Number 

of 

channels 

Maximum 

A/D 

sampl lng 
frequency 

Maximum  D/A 
conversion 
frequency 
with  dup 
tape 

Record  length 
or  block  size 
(in  bytes. 

Digital  values 
per  block 
(including 
Group  No.) 

Number  of 
data  frames 
per  block 
(excluding 
Group  No.) 

2 

3500 

2800 

2048 

1024 

511 

3 

2800 

2240 

2046 

1023 

340 

4 

2200 

1760 

2048 

2014 

255 

5 

1800 

1440 

2040 

1020 

203 

6 

1600 

1280 

2040 

1020 

169 

7 

1400 

1120 

2044 

1022 

145 

8 

1250 

1000 

2048 

1024 

127 

9 

1100 

880 

2034 

1017 

112 

10 

1025 

820 

2040 

1020 

101 

11 

975 

780 

2046 

1023 

92 

12 

900 

720 

2040 

1020 

84 

13 

850 

680 

2028 

1014 

77 

14 

800 

640 

2044 

1022 

72 

15 

760 

608 

2040 

1020 

67 

16 

700 

560 

2048 

1024 

63 

APPENDIX  C 


D/A  PROGRAM  LISTING 


0000 

01*01 

0002 

0003 

000a 

0005 

000b 

0007 

0010 

0011 

0012 

0013 

0011* 

0015 

001b 

0017 

0020 

0021 

0022 

0023 

0024 

0025 
002b 
0027 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 
0060 
0061 
0062 

0063 

0064 

0065 

0066 
0067 
0070 
00T 1 

0072 

0073 

0074 

0075 


• 20 

/OTUA10  11 
/DIGITAL  TO 
/ 

/HfcNNITH  *, 

7 

/ 


JUL  77 

ANALOG  ORIVE. 
STEVENS 


RROOE 

/API  CORRANOS. 

AP  ION*600b 

HUSH J»6T60 

HESTI *67  7 1 

SHLV»6772 

NFLD*6773 

kSTK»6774 

HVEC*6775 

SSTK»6776 

S»vfcC«6777 


/ 

/END  Ob  API  CORRANOS. 
/ 


0100 

0255 

*100 

RE  ST* JRS  I. 
SRVICE 

0101 

1200 

01NART*JRS  I 
UOPRNT 

W102 

0420 

LLOCKajRS  1, 
CUR 

0103 

0403 

API  * JRS  l, 
1NTRPT 

0104 

0000 

STATUS* 

0 

0105 

0001 

THLAG, 

1 

0106 

0001 

Pb'LAG, 

1 

0107 

0000 

CHAW, 

0 

0110 

0001 

UNO, 

1 

0111 

0000 

HIBLOK, 

0 

0112 

0000 

LOBLOK, 

0 

0113 

0010 

TEN, 

10 

0114 

5574 

RUSIZ, 

RCDSIZ 

0115 

5011 

WRITAP, 

MGTAP2 

0116 

4741 

REETAP, 

MAGTAP 

0117 

0223 

vector, 

ROINTR 

0120 

0000 

COPT, 

0 

0121 

0000 

COPY  l , 

0 

0122 

5007 

XITATt, 

tXlTB 

0123 

5007 

3*1 » 

tXlTB 

0124 

5000 

POINTC, 

CNTUE 

0125 

5007 

PUINTN, 

tXlTS 

0126 

7753 

TAPER j , 

7753 

0127 

7752 

TAPtna, 

7 752 

0130 

0010 

K 00 10, 

10 

0131 

0000 

ADR  1 , 

0 

0132 

0427 

CORND* » 

0427 

0133 

1557 

CORNOF  , 

1557 

0134 

1447 

CORNU , 

1447 

0135 

5141 

TER3, 

TERP3 

0200 

7000 

VtCT, 

• 200 

NOP 

0201 

7402 

hlt 

0202 

7000 

NOP 

0203 

7402 

RUT 

0204 

5605 

JRP  1 ( *1 

/START  OF  VECTOR  TABLE 
/ PFW  POWER  FAIL 

/LINC  TAPE 
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0 1)  7 fc 

0205 

0236 

VECCL6, 

ADOFF 

/6M12A  CLOCK 

0077 

0206 

7000 

NOP 

0100 

0207 

7402 

*IT 

/ (TSS)  TIME  SHARt 

0101 

0210 

5611 

JMP  I.*l 

0102 

0211 

0240 

TTY 

/TTY  PRINTER  (YOURS) 

0103 

0212 

5613 

JMP  !.♦! 

0104 

0213 

5160 

KttRO 

/TTY  KURD  (YOURS) 

0105 

0214 

7000 

NOP 

0106 

0215 

7402 

MLT 

/TTY  REMOTE  (6YB0) 

0107 

0216 

7000 

NOP 

0110 

0217 

7 402 

MLT 

/TTY  REMOTE  (PRT) 

0111 

0220 

7 000 

NOP 

0112 

0221 

7402 

MLT 

/PLOTTER 

0113 

0222 

5623 

JMP  I,M 

0114 

0223 

4741 

POINT*, 

MAGTAP 

/MAGTAPt 

0115 

0224 

7000 

NOP 

0116 

0225 

7402 

MLT 

0117 

0226 

7000 

NOP 

0120 

0227 

7402 

«LT 

/" 

0121 

0230 

5631 

JMP  I,»l 

0122 

0231 

4741 

MAGTAP 

/WANG  MAGTAPE, 

0123 

0232 

7000 

NOP 

0124 

0233 

7402 

MLT 

/" 

0125 

0234 

7000 

NOP 

0126 

0235 

7402 

MLT 

0127 

/ 

0130 

/ 

END  OF  VECTOH 

table 

0131 

/ 

0132 

0236 

6135 

A00FF, 

CLSA 

/INTERRUPTS  TO  MERE 

0133 

0237 

4500 

KEST 

/RHEN  NOT  CONVERTING 

0134 

0240 

6201 

tty, 

CDF  0 

/TELETYPE  INTERRUPTS 

0135 

0241 

7200 

CLA 

/TO  MERE, 

0136 

0242 

1507 

TAD  I CHAR 

0137 

0243 

7450 

SNA 

0140 

0244 

5250 

JMP  ,*4 

0141 

0245 

6046 

TLJ 

0142 

0246 

2107 

ISZ  CHAR 

0143 

0247 

4500 

RtST 

0144 

0250 

6042 

TCF 

0145 

0251 

2106 

ISZ  PFLAG 

0146 

0252 

4500 

REST 

0147 

0253 

7402 

MLT 

0150 

0254 

0265 

aapol, 

POL 

0151 

0255 

0000 

SRVICE , 

0 

0152 

0256 

7200 

LLA 

0153 

0257 

67  74 

RSJK 

0154 

0260 

1110 

TAO  UNO 

0155 

0261 

1254 

TAO  AAPOL 

0156 

0262 

7440 

SZA 

0157 

0263 

677  1 

KE3TI 

0160 

0264 

7402 

MLT 

0161 

0265 

0000 

POL. 

0 

/start  of  push  oomn 

0162 

/ 

0163 

/ 

0164 

• 400 

0165 

/ 

0166 

/ 

0167 

0400 

0200 

AVECT. 

vECT 

0170 

0401 

0265 

apol, 

PUL 

0171 

0402 

0037 

60037  , 

0037 

0172 

0403 

0000 

INTRPT, 

0 

0173 

0404 

7200 

CLA 

0174 

0405 

1202 

TAD  60037 
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0406 

6772 

SMLV 

0 1 

/ 

017  7 

/ 

PUSH  DOWN  LIST  IS  IN  LOW  4K 

0000 

/ 

VtCTOR  FIELD  IS  IN  LOW  4K 

0201 

/ 

ALL  INTERRUPTS  ARt  PERMITTED 

0202 

/ 

020  5 

04U7 

7200 

UA 

620u 

0410 

1201 

TAD  APOL 

e?05 

0411 

67  7 b 

SSTK 

020(> 

/ 

0207 

/ 

PUSH  DOWN  STACK  IS  IN 

0210 

/ 

PMOOE  PACE  1 FIELD  0 

0211 

/ 

PDL-400 

021? 

/ 

THIS  SHOULD  ALLOW  UP  TO  19 

0215 

/ 

PENDING  INTERRUPTS 

0214 

/ 

021b 

0412 

7 200 

LLA 

021b 

0413 

1200 

TAD  AVECT 

0217 

0414 

6777 

SVEC 

0220 

/ 

0221 

0415 

7200 

CL* 

0222 

0416 

6006 

APION 

0223 

0417 

5603 

J HP  I INTRPT 

0224 

/ 

VECTOR  TABLE  ADORESS  IS 

0225 

/ 

VECT 

0226 

/ 

0227 

/ 

0230 

/ 

0231 

/ 

0232 

/ 

0233 

/ 

KW12A  CLOCK  HANDLER 

0234 

/ 

0235 

/ 

0236 

/ 

0237 

0420 

0000 

CUK, 

0 

0240 

0421 

7300 

LLA  CLL  /START  THE  CLOCK. 

0241 

0422 

6133 

LLAB 

0242 

0423 

6132 

CLLW 

0243 

0424 

6135 

CLSA 

0244 

0425 

7200 

LLA 

0245 

0426 

1243 

TAD  K 0 1 00 

0246 

0427 

6132 

lllr 

0247 

0430 

6135 

LLS  A 

0250 

0431 

7200 

LLA 

0251 

0432 

1244 

tAD  NUMBER  /SET  UP  CLOCK  BUFFER 

0252 

0433 

6153 

LLAB  /PRESET  THE  BPR  FOR 

0253 

0434 

7 200 

LLA 

0254 

0435 

124b 

TAD  K0300 

0255 

0436 

6134 

LLEN  /LOAD  CK  ENABLE 

0256 

0437 

7200 

CLA 

0257 

0440 

1245 

TAD  K5I00 

02b0 

0441 

6132 

LLLR 

0261 

0442 

5620 

JHP  I CLK 

0262 

/ 

0263 

/NUMBER 

, IS  THE  COUNTS  BEFORE  INTERRUPT 

0264 

/ 

0265 

/K  3 1 00 . 

IS  THE  CLOCK  CONTROL  REG, 

0266 

/ 

0267 

/K0300, 

SETS  THE  INTERRUPT  ENABLE 

0270 

/ 

0271 

/K0100, 

USED  TO  GET  A MODE  CHANGE 

0272 

/ 

0273 

0443 

0100 

K0100, 

0100 

■ - . ..  J 
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0373 

/ 

tRHOR  COOfcS  IN  AC 

0374 

/ 

• 

037b 

/ 

0,  tRROR  FLAG  TOTAL 

037b 

/ 

1.  TAPE  REWINDING 

0377 

/ 

2.  BEGINNING  OF  TAPE  (HOT ) 

0400 

/ 

3,  ILLEGAL  CQHMAND 

0401 

/ 

4.  PARITY  (LATERAL  OR  LONGITUDAL) 

040a 

/ 

5.  END  OF  ULt  (EOF) 

0403 

/ 

b.  ENO  OF  TAPE  (EOT) 

0404 

/ 

7,  REAO/COMPARE  ERROR 

0405 

/ 

0.  RECORD  LENGTH  INCORRECT 

040b 

/ 

WC>0  LONG 

0407 

/ 

WC«/0  SHORT 

0410 

/ 

G,  DATA  REUUEST  LATE 

0411 

/ 

10,  BAD  TAPE 

0410 

/ 

11,  JOB  DONE  (MTF) 

0413 

/ 

0414 

/ 

0415 

/ 

041b 

/ 

THE  ENO 

0417 

/ 

0400 

• 1200 

0401 

/UNSIGNtU  DECIMAL  PRINT,  DOUBlt 

PRECISION 

040? 

/CALLING  SEQUENCE!  JMS  UOPRNT 

/SUBROUTINE  CALLEO 

0403 

/ 

n 

HI  ADDR 

/ADDRESS  OF  HIGH  ORDER  WOR 

0404 

V 

/ 

POINTER 

/ADDRESS  OF  FIRST  WORD  OF 

ANSWER. 

0425 

/ 

RETURN 

/RETURN  WITH  AC  AND  L CLEA 

0426 

/ 

0427 

RHODE 

0430 

/ 

0431 

1200 

0000 

U0PRNT,  0 

0432 

1201 

7300 

CLA  CLL 

0433 

1202 

1600 

TAD  I UDPRNT 

/PICK  UP  ADDRESS  OF  HIGH-0 

ROER 

wORO 

0434 

1203 

3306 

OCA  UOGET 

0435 

1204 

1 7 0b 

TAO  I UOGET 

/PICK  UP  BOTH  WORDS  FOR  US 

E IN 

SUBROUTINE 

043b 

1205 

3300 

OCA  UOMIGH 

0437 

120b 

2306 

ISZ  UOGET 

0440 

1207 

1706 

TAO  I UDGET 

0441 

1210 

3301 

OCA  UOLOw 

0442 

1211 

1272 

TAD  UOLOOP 

/INITIALIZE  DIGIT  COUNTER 

F OR 

"8" 

0443 

1212 

3277 

OCA  UDCNT 

0444 

1213 

1273 

TAD  UDADOR 

/initialize  to  t*ble  of  PO 

WERS 

OF  TEN 

0445 

1214 

3307 

OCA  UDPTR 

044b 

1215 

2200 

ISZ  UOPRNT 

0447 

1216 

1600 

TAD  I UOPRNT  / 

0450 

1217 

3310 

OCA  UDADRS 

0451 

1220 

3275 

oca  flag 

0452 

1221 

2200 

ISZ  UDPRNT 

/INDEX  LINKAGE  FOR  CORRECT 

Rt  TURN 

0453 

122? 

1707 

UDARND,  TAD  1 UOPTH 

/PICK  UP  CURRENT  POWER  OF 

TEN 

FOR 

0454 

1223 

2307 

ISZ  UOPTK 

/USE  IN  SUBTRACTION 

0455 

1224 

3302 

OCA  UOHSuB 

045b 

1225 

1707 

TAD  I UOPTR 

0457 

1226 

2307 

ISZ  UDPTR 

0460 

1227 

3303 

OCA  UOLSUB 
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0461 

1250 

7100 

UODO, 

ION 

cll 

/DOUBLE  PRECISION  SUBTRACT 

3462 

1231 

1303 

TAU  UOLSUb 

0463 

1232 

1301 

TAD  UDL Ow 

04b4 

1233 

3305 

OCA  UDTEML 

0465 

1234 

7004 

R*L 

0466 

1235 

1302 

TAO  UOHSUB 

0467 

1236 

1300 

TAD  UDHIGM 

0470 

1237 

7420 

SNL 

/DID  IT  UNDERFLOW? 

0471 

1240 

5246 

JMP  UOOUT 

/NO,  COUNT  IS  DONE 

0470 

1241 

2304 

ISZ  UDBOX 

/YES,  COUNT  NOT  DONE  YET. 

iNDtX  UlGIT 

0473 

1242 

3300 

DC  A UOHIGH 

/DEPOSIT  REMAINING  PORTION 

S OF  -URU 

0474 

1243 

1305 

TAO  UDTEHL 

0475 

1244 

5301 

OCA  UOLO  w 

e47b 

1245 

5230 

N 

UOCUT  , 

JMP  UDDO 

/GO  BACK  ANO  SUBTRACT  AGA I 

0477 

1246 

7200 

cla 

0500 

1247 

12  75 

tad  flag 

0501 

1250 

7 440 

6ZA 

0502 

1251 

5260 

JMP  , *7 

0503 

1252 

1304 

TAD  UDBOX 

0504 

1253 

7440 

3ZA 

0505 

1254 

5257 

JMP  .*3 

0506 

1255 

1274 

TAO  udspce 

0507 

1256 

52b3 

JMP  .*5 

0510 

1257 

22  75 

ISZ  flag 

0511 

1260 

7200 

cla 

0512 

1261 

1504 

TAD  UDBOX 

/PICK  UP  RESULTING  DIGIT 

0513 

1262 

1276 

TAD  UDTwU 

/ADD  "260"  TO  IT 

0514 

1263 

37  10 

OCA  I UDADRS 

0515 

1264 

2310 

ISZ  UOAORS 

0516 

1265 

7300 

CLA  CLL 

0517 

1266 

3304 

DC  A UDBOX 

/INITIALIZE  DIGIT  TO  "0" 

0523 

1267 

2277 

ISZ  UDCNT 

/MAvE  WE  TYPED  "8"  DIGITS 

0521 

1270 

5222 

JMP  udapnd 

/NO,  DETERMINE  NEXT  DIGIT 

0522 

1271 

5600 

URN 

JMP  I UDPRNT 

/YES,  SUBROUTINE  DONE,  RET 

0523 

1272 

'7  7 70 

UDLOOP, 

-10 

/COUNT  OF  ”8"  DIGITS 

0524 

1273 

1311 

UDADDR, 

UOCONl 

/INITIAL  ADDRESS  OF  POWtRS 

OF  TtN 

0525 

1274 

0240 

UOSPCt, 

240 

052b 

1275 

0000 

flag, 

0 

0527 

1276 

0260 

UDT  WO , 

260 

/ ICOOE  FOR  DIGITS 

0530 

1277 

0000 

UOCNT, 

0 

/STORAGE  LOCATIONS 

0531 

1300 

00  10 

UDHIGM, 

0 

0532 

1301 

0.  00 

UQLOw, 

0 

0533 

1302 

0000 

U0H3UB, 

0 

0534 

1303 

0000 

UOLSUb, 

0 

05  35 

1 304 

0000 

UDBOX, 

0 

0536 

1305 

0000 

UOTEML> 

0 

0537 

1306 

0000 

UDGET , 

0 

0540 

1307 

0000 

UUPTR, 

0 

0541 

1310 

0000 

UOADRS , 

0 

0542 

1311 

5166 

UOCONl , 

3166 

/POWERS  OF  TEN 

0543 

1312 

4600 

4600 

/-10, 000,000 

0544 

1313 

7413 

7413 

/-l, 000, 000 

0545 

1314 

6700 

6700 

0546 

1315 

7 747 

7 747 

/-100, 000 

0547 

1316 

4540 

4540 

0550 

1317 

7 7 75 

7 775 

/-10.000 

0551 

1320 

4560 

4360 
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0552 

• 

1321 

7777 

7777 

/-1,000 

0553 

1322 

6030 

6030 

0554 

1323 

7 777 

7777 

/-100 

0555 

1326 

7636 

7636 

055b 

1325 

7 777 

7777 

/-10 

0557 

1326 

7766 

7766 

05b0 

1327 

7777 

7777 

/-I 

0561 

1330 

7777 

7777 

0562 

/ 

0563 

/ 

056a 

/ 

0565 

/ 

0566 

LMODE 

0567 

3EGMNT  1 

0570 

/QANDA1 

COMMANDS 

0571 

OU»JMP  1000 

0572 

UR»JMP  1063 

0573 

/tND  07 

UAN0A1  COMMANDS 

057a 

• 20 

0575 

0020 

1000 

OISPLA, 

LDA 

0576 

0021 

0000 

0 

0577 

0022 

6035 

3TC  EXIT6 

0600 

0023 

0663 

CDF  3 

0601 

0026 

7000 

UU 

/QUESTION  AND  ANSmER 

0602 

0025 

3000 

MES31 12000 

/PORTION  STARTS  MERE, 

0603 

0026 

0016 

NOP 

060a 

0027 

7063 

UP 

0605 

0030 

7000 

UU 

0606 

0031 

3066 

MESS6 12000 

0607 

0032 

2000 

AN8612000 

0610 

0033 

7063 

UK 

0611 

0036 

0602 

LIF  2 

0612 

0035 

0000 

EXIT6, 

0000 

/EXIT  Q AND  A PORTION 

0613 

0036 

6006 

0EC9IN, 

STC  6 

/DECIMAL  TO  BINARY 

06 1 a 

0037 

1000 

LDA 

/CONVERSION  ROUTINE, 

0615 

0060 

0000 

0 

0616 

0061 

6067 

STC  RETURN 

0617 

0062 

6057 

STC  TEMPI 

0620 

0063 

0065 

SET  I 5 

0621 

0066 

7776 

-3 

0622 

0065 

1326 

NXTOGT , 

LOH  1 6 

0623 

0066 

1560 

bCL  1 

062a 

0067 

7760 

7760 

0625 

0050 

2057 

ADD  TEMPI 

0626 

0051 

1060 

8TA  I 

0627 

0052 

0000 

TEMP2, 

0000 

0630 

0053 

0262 

KOI  2 

0631 

0056 

2052 

ADD  TEMP2 

0632 

0055 

0261 

MOL  1 

0633 

0056 

1060 

STA  I 

063a 

0057 

0000 

TEMPI, 

0000 

0635 

0060 

0225 

XSK  I 5 

0636 

0061 

6065 

JMP  NXTOGT 

0637 

0062 

1326 

LOH  I 6 

0660 

0063 

1560 

BCL  1 

06a  i 

0066 

7760 

7760 

0662 

0065 

2057 

ADD  TEMPI 

0663 

0066 

0602 

LIF  2 

0666 

0067 

0000 

KtTURN, 

0000 

0665 

SEGMNT  2 

0666 

*20 

0667 

0020 

0601 

LIF  1 

/PROGRAM  STARTS  HtRE. 

0650 

0021 

6020 

JMP  DISPLA 

L 


0651 

0322 

1300 

QECODE, 

LOU 

0652 

0323 

2005 

2005 

0653 

0024 

1560 

«CL  I 

0b5a 

U325 

/7b? 

/ 760 

3b55 

0326 

0251 

KOL  9 

0656 

0027 

3557 

ADO  A 1 00 

ebb/ 

0030 

064? 

LOF  0 

066? 

0031 

1040 

STA 

0b b l 

0?32 

2445 

K51 00 1 2300 

0662 

0033 

1 4b0 

SAfc  I 

3663 

003a 

6100 

6100 

066u 

0035 

6041 

JMP  ,*4 

0665 

0036 

1020 

LOA  I 

0b6b 

0?37 

0 320 

0320 

0bbT 

0040 

6043 

JMP  , *3 

0b/? 

0041 

1020 

LDA  1 

06/1 

0042 

030? 

0300 

Cb/2 

0343 

1040 

STA 

067  3 

0044 

244b 

*0300 12000 

0674 

0045 

0643 

LDF  3 

0675 

0346 

1020 

LOA  I 

0b/  b 

034/ 

6005 

6005 

0b// 

035? 

0601 

LIF  1 

0/00 

0051 

6036 

JMP  UECBIN 

0/01 

0052 

0017 

COM 

0/00 

0053 

3562 

ADO  ONE 

0/03 

0354 

064? 

LOF  0 

370u 

0055 

1040 

STA 

3/05 

0?5b 

2444 

NUMBER  1 2000 

0706 

0057 

0643 

LOF  3 

0/0/ 

00b? 

130? 

LDH 

/PICK  UP  COPT  TAPE 

0/1? 

00b  1 

6000 

6000 

/DIRECTIVE  from  ANSWER 

0/11 

0362 

0643 

LOF  0 

/FIELD  AND  STORE  IT 

0/12 

0363 

1040 

ST* 

/FOR  FUTURt  USE, 

0713 

00b4 

2120 

L0P7 12000 

0714 

0365 

1040 

STA 

0/15 

0366 

2121 

COPT  1 1 2000 

0/lb 

0067 

0643 

LOF  3 

071/ 

0373 

0024 

SFA 

072? 

0371 

1620 

BSE  I 

0/21 

0072 

002? 

20 

0/22 

0073 

0004 

ts/ 

0723 

0374 

0302 

POP 

072a 

PMOOE 

0/25 

4075 

4502 

CLOCK 

/SET  UP  CLOCK, 

0726 

4376 

4503 

API 

/SET  UP  *UTQ  INTERRUPT 

0/2/ 

4377 

6141 

LINC 

0/3? 

LMOOfc 

0/31 

0100 

7021 

JMP  REWIND 

0/32 

0101 

0011 

clr 

0/33 

0102 

557  0 

SIC  FILM 

073a 

0103 

55/1 

STC  F ILCNT 

0/35 

0104 

0643 

LOF  3 

0/  3b 

0105 

1023 

NtWFlL 

, LOA  I 

/TO  HERE  WHEN  A NEW  FI 

073/ 

0106 

400? 

400? 

/IS  ENCOUNTERED. 

074? 

0107 

5574 

STC  HCDSIZ 

07*1 

0110 

0640 

LOF  0 

0742 

0111 

1040 

ST* 

07«3 

0112 

2131 

*0R1 12000 

07aa 

0113 

1040 

ST* 

0745 

0114 

2112 

LOBLOK i 2000 

0746 

0115 

1040 

ST* 

0747 

0116 

2111 

M I BLOK  1 2000 
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B75a 

0117 

3562 

ADD  ONE 

0751 

0120 

1140 

ADM 

0752 

0121 

1571 

F 1LCNT 

0753 

0122 

0011 

CLR 

0754 

0123 

0002 

MOP 

0755 

PMOOt 

0756 

4124 

1125 

TAD  POlNTN 

/SET  SMI  SUCH  THAT 

0757 

4125 

3123 

UCA  SWI 

/NO  COPY  MILL  BE  MAOE. 

0760 

4126 

1121 

7 AO  COPY  1 

0761 

4127 

3120 

OCA  COPY 

0762 

4 1 3C 

6141 

LINC 

0763 

LMODE 

0764 

0131 

6706 

JMP  REED 

/READ  FIRST  BLOCK  OF  FILE. 

0 765 

0132 

0002 

POP 

0766 

PMODE 

0767 

4133 

7200 

LLA 

0770 

4134 

1105 

TAD  TFLAG 

0771 

4135 

7450 

SNA 

0772 

4136 

5334 

JMP  .-2 

0773 

4137 

7200 

OLA 

0774 

4140 

1104 

TAD  STATUS 

0775 

4141 

6141 

LINC 

0776 

LMODE 

0777 

0142 

1560 

BCL  I 

1000 

0143 

7677 

7677 

1001 

0144 

1040 

STA 

1002 

0145 

1555 

STAS 

1003 

0146 

1460 

SAE  I 

1004 

0147 

0100 

100 

1005 

0150 

6152 

JMP  .*2 

1006 

0151 

7142 

JMP  FINISH 

1007 

0152 

0002 

POP 

1010 

PMOOE 

1011 

4153 

4501 

BINARY 

1012 

4154 

5570 

FILMI 

1013 

4155 

6743 

6743 

1014 

4156 

6141 

LINC 

1015 

LMODt 

1016 

0157 

1020 

LOA  I 

1017 

0160 

6716 

F ILNUM16000 

1020 

0161 

7120 

JMP  TYPOUT 

/PRINT  FILE  NUMBER, 

1021 

0162 

7054 

JMP  tBCOIC 

1022 

0163 

1020 

LOA  I 

1023 

0164 

6050 

HE  ADR  1 6000 

1024 

0165 

7120 

JMP  TYPOUT 

1025 

0166 

1020 

LOA  I 

1026 

0167 

6020 

6020 

/ABSOLUTE  ADDRESS  OF  HEADINGS 

1027 

0170 

7120 

JMP  TYPOUT 

103a 

0171 

0065 

SET  I 5 

1031 

0172 

3761 

3761 

1032 

0173 

0644 

LOF  4 

1033 

0174 

0066 

SET  I 6 

1034 

0175 

1573 

TtMP4 

1035 

0176 

1025 

PARAMS,  LOA  I 5 

1036 

0177 

1560 

BCL  I 

1037 

0200 

7760 

7 760 

1040 

0201 

0250 

KOL  8 

1041 

0202 

5572 

STC  TEMP 

1042 

0203 

1025 

LOA  I 5 

1043 

0204 

1560 

BCL  I 

1044 

0205 

7 400 

7400 

1045 

0206 

357  2 

AUD  TEMP 

1046 

0207 

1066 

STA  I 6 

£(  ' 

1_-  B 

1 


1 0«r 

1^50 

1051 

1052 
125  3 
105* 
1055 
135b 
1057 
1060 
1061 
1362 
1063 
iebu 

1065 

1066 
1067 

1070 

1071 

1072 

1073 

1074 

1075 
127b 
1077 
1100 
1101 
1102 

1103 

1104 

1105 

1106 
1107 
1110 
1111 
1112 

1113 

1114 

1115 

1116 
1117 
1120 
1121 
1122 

1123 

1124 

1125 

1126 
1127 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1140 

11*1 

11*2 

11*3 

11** 

11*5 


2212 

0205 

ASK  5 

0211 

6176 

JMP  PARAMS 

0212 

06  4 0 

LUF  0 

0213 

1000 

LDA 

221* 

2120 

COPY 12000 

0215 

0*70 

AZE  I 

0216 

6260 

JMP  RENTER 

0217 

0002 

PUP 

PMOOE 

4220 

7200 

CLA 

4221 

1115 

TAD  WRITAP 

4222 

3517 

UCA  1 VECTOR 

4223 

112* 

TAD  POINTC 

4 22* 

3123 

UCA  SMI 

4225 

6 1*1 

LINC 

LMODE 

2226 

0065 

SET  I 5 

0227 

2000 

2000 

0230 

0066 

SET  I 6 

0231 

77b7 

•10 

0232 

0067 

SET  I 7 

0233 

2006 

2006 

023* 

0643 

ATOEBC , 

LDF  3 

0235 

1325 

LOH  I 5 

0236 

1120 

AOA  I 

0237 

1*55 

tablei 

02*0 

*2*2 

STC  NOEX 

024} 

1000 

LDA 

02*2 

0000 

NUEX, 

0000 

02*3 

06*4 

LDF  * 

024* 

1067 

STA  I 7 

02*5 

0226 

XSK  I 6 

02*6 

6234 

JMP  ATOEBC 

02*7 

0011 

LLR 

0250 

0640 

LDF  0 

0251 

1040 

STA 

0252 

2131 

AUR112000 

0253 

6660 

JMP  MR I T 

025* 

0002 

POP 

PMOOE 

4255 

6721 

MTTR 

*256 

5255 

JMP  ,-i 

4257 

61*1 

LINC 

lmooe 

0260 

1020 

RENTER, 

LDA  I 

0261 

06*4 

LDF  * 

0262 

10*0 

STA 

0263 

1337 

uflo 

0264 

4744 

STC  PAK 

0265 

5*41 

STC  Sh2 

0266 

5565 

STC  I6R0UP 

0267 

3575 

*00  A0RES3 

0270 

0640 

LDF  0 

0271 

1040 

STA 

0272 

2131 

ADRl 12000 

0273 

0642 

LDF  2 

027* 

5560 

STC  SMITCM 

0275 

0050 

TAPE, 

SET  10 

0276 

1577 

IXTEN 

0277 

06*0 

LDF  0 

0300 

1000 

LDA 

0301 

2131 

ADR  1 1 2000 

0302 

1120 

AOA  I 

/mill  a copy  be 

/*A0E?  IF  SO  CONTINUE, 
/IF  NOT  JMP  TO  RENTER, 


/ASCII  TO  EBCDIC  CONVER- 
SION ROUTINE. 


/END  OF  ASCII  TO  EBCDIC 
/ROUTINt, 
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1146 

0303 

4000 

4000 

11«7 

0304 

1560 

UCL  I 

lisa 

0305 

0001 

1 

list 

0306 

1040 

STA 

1 1 

0307 

2131 

ADR  1 1 2000 

1153 

0310 

6706 

RTAP, 

JhP  REED 

115# 

0311 

1000 

LDA 

1155 

0312 

1560 

SWITCH 

1156 

0313 

0470 

AZE  I 

1157 

0314 

6340 

JMP  REFIL 

1160 

1161 

0315 

0002 

POP 

PMODfc 

1160 

4316 

7200 

cla 

1163 

4317 

1105 

TAD  TFLAG 

1164 

4320 

7450 

SNA 

1165 

4321 

5317 

JMP  ,-2 

1166 

4322 

7200 

LLA 

1167 

4323 

1104 

TAD  STATUS 

1170 

1171 

4324 

6141 

LINC 

LMODE 

1172 

0325 

1560 

UCL  I 

1173 

0326 

7677 

7677 

1174 

0327 

1040 

STA 

1175 

0330 

1555 

STAS 

1176 

0331 

1460 

SAE  I 

1177 

0332 

0100 

100 

1200 

0333 

6335 

JMP  ,*2 

1201 

0334 

6463 

JMP  CONVRT 

1202 

0335 

0011 

CIR 

1203 

0336 

5560 

STC  SWITCH 

1204 

0337 

6475 

JMP  PRINT 

1205 

0340 

0042 

REF 1L, 

SET  2 

1206 

0341 

1601 

MCMAN 

1207 

0342 

0067 

SET  I 7 

1210 

0343 

1602 

CHAN 

1211 

0344 

0644 

PAK, 

LOF  4 

1212 

0345 

1030 

LDA  I 10 

1213 

0346 

0250 

KOL  8 

1214 

0347 

1560 

UCL  I 

1215 

0350 

0377 

0377 

1216 

0351 

5572 

STC  TEMP 

1217 

0352 

1030 

LOA  I 10 

1220 

0353 

1560 

UCL  I 

1221 

0354 

7400 

7400 

1222 

0355 

357  2 

ADO  TEMP 

1223 

0356 

1067 

STA  I 7 

1224 

0357 

0210 

ASK  10 

1225 

0360 

6377 

JMP  FRAME 

1226 

0361 

0011 

llr 

1227 

0362 

2344 

ADD  PAK 

1230 

0363 

3562 

AOD  ONE 

1231 

0364 

1560 

UCL  I 

123? 

0365 

0014 

14 

1233 

0366 

3564 

ADO  K4 

1234 

0367 

1040 

STA 

1235 

0370 

0344 

PAK 

1236 

0371 

1040 

STA 

1237 

0372 

1337 

ufld 

1240 

0373 

1560 

UCL  I 

1241 

0374 

7776 

7776 

124? 

0375 

0470 

AZE  I 

1243 

0376 

6410 

JMP  WAIT 

1244 

0377 

0222 

FRAME, 

ASK  I 2 

/END  OF  IINC  FIELD? 
/NO, 


/END  OF  RECORD? 
/YES, 

/NO, END  OF  FRAME? 
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12*5 

0400 

6344 

JMP  PAK 

/NO, 

124b 

0401 

1000 

LUA 

/YES 

1247 

0402 

1561 

5w2 

1 250 

0403 

04/0 

AZt  I 

1251 

0404 

b401 

JMP  ,-3 

1252 

0405 

0011 

CLR 

1253 

040b 

5561 

STC  Sm£ 

1254 

0407 

6340 

JMP  RfcFlL 

1255 

0410 

1000 

WAIT, 

LOA 

/WAIT  FOR  CLOCK  INTERRUPT 

125b 

0411 

1561 

9h2 

1257 

0412 

0470 

AZt  I 

12bfl 

0413 

6410 

JMP  .-3 

1261 

0414 

0011 

CLP 

1262 

0415 

55b  l 

STC  5» 2 

1263 

041b 

0002 

POP 

1264 

PMOOE 

1265 

4417 

7200 

CL  A 

1266 

4«20 

1104 

TAD  STATUS 

1267 

4421 

6141 

LlNC 

1270 

LMOuE 

1271 

0422 

1040 

ST  A 

1272 

0423 

1573 

TEMP4 

1273 

0424 

1560 

BCL  I 

1274 

0425 

7577 

7577 

1275 

042b 

0470 

AZE  I 

/CHECK  FOR  PARITY  ERROR. 

127b 

0427 

644  1 

JMP  NOPKTr 

1277 

0430 

0643 

LOP  3 

1300 

0431 

0002 

PUP 

1301 

PMOOE 

1302 

4432 

4501 

BINARY 

1303 

4433 

0111 

H I BLOK 

1334 

4434 

6642 

6642 

/PARITY*10 

1305 

4435 

6141 

LlNC 

130b 

LMOOt 

1337 

0436 

1020 

IDA  1 

1310 

0437 

6630 

PARITY  16000 

1311 

0440 

1 120 

JMP  TYPOUT 

/PRINT  BLOCK  NUMBER  OF 

1312 

0441 

1000 

NOPRTY, 

LOA 

/PARITY, 

1313 

0442 

15/3 

TEMP4 

1314 

0443 

1560 

bCl  1 

1315 

0444 

7677 

767  7 

1316 

0445 

1040 

STA 

1317 

0446 

1555 

STAS 

1320 

0447 

1460 

SAE  I 

/CHECK  FOR  END  OF  FILE 

1321 

0050 

0100 

100 

1322 

0451 

6475 

JMP  PRINT 

/IF  NO,  GO  TO  PRINT. 

1323 

0452 

1020 

LOA  I 

1324 

0453 

0236 

AOOFF 

1325 

0454 

0640 

COF  0 

1326 

0455 

1040 

STA 

/STOP  0/A  CONVERSION 

1327 

0456 

2205 

vECCLK 12000 

/BETWEEN  FILES, 

1330 

0457 

0015 

KTA 

1331 

0460 

1560 

BCL  I 

/TURN  OFF  RELAY  0, 

1332 

0461 

4040 

4040 

1333 

0462 

0014 

ATR 

1334 

0463 

0643 

C0NVRT , 

LOF  3 

1335 

0464 

0002 

POP 

133b 

PMOOE 

1337 

4465 

4501 

BINARY 

1340 

4466 

0111 

MIBlOK 

134  1 

4467 

6672 

6672 

/ENOFIl*10 

1342 

4470 

6141 

CINC 

1343 

LMOOE 

74 


1344 

0471 

1020 

LOA  I 

1345 

0472 

6660 

tNQF IL 16000 

1346 

0473 

7120 

JMP  TYPOUT 

/PRINT  EOF  ANO  LAST 

1347 

0474 

6105 

JMP  NEWFIL 

/BLOCK  NUMBER  OF  FILE. 

1350 

0475 

7354 

PRINT, 

JMP  GRPCHN 

135a 

0476 

1000 

LOA 

1353 

0477 

1567 

GROUP 

1353 

0500 

1440 

SAE 

/CHECK  FOR  NEW  GROUP. 

1354 

0501 

1565 

IGRQUP 

1355 

0502 

6504 

JMP  ,*Z 

135b 

0503 

6275 

JMP  TAPE 

1357 

0504 

5565 

STC  IGROUP 

136? 

0505 

1020 

LOA  I 

1361 

0506 

0236 

AOOFF 

1363 

0507 

0640 

LOF  0 

1363 

0510 

1040 

STA 

/STOP  0/A  CONVERSION 

1364 

0511 

2205 

VECCLK 12000 

/BETWEEN  GROUPS. 

1365 

0512 

0015 

KTA 

1366 

0513 

1560 

ecu  I 

/TURN  OFF  RELAY  0. 

1367 

0514 

4040 

4040 

1370 

0515 

0014 

ATR 

1371 

0516 

0002 

EnTR, 

POP 

1372 

PMODfc 

1373 

4517 

4501 

BINARY 

1374 

4520 

5566 

MIGRUP 

1375 

4521 

6602 

6602 

/GRPNUM+2 

1376 

4522 

4501 

BINARY 

1377 

4523 

0111 

mIBLOK 

1400 

4524 

6612 

6612 

/GRPNUM* 1 0 

1401 

4525 

bl41 

L1NC 

1402 

LMOOE 

- 

1403 

0526 

0643 

LOF  3 

1404 

0527 

1020 

LOA  I 

1405 

0530 

6600 

UHPNUM 16000 

1406 

0531 

7120 

JMP  TYPOUT 

/PRINT  GROUP  NUMBER  AND 

1407 

0532 

0002 

POP 

/STARTING  BLOCK  NUMBER, 

1410 

PMOOt 

1«11 

4533 

7200 

CLA 

1412 

4534 

1106 

TAD  PFLAG 

1413 

4535 

7 450 

SNA 

1414 

4536 

5334 

JMP  ,-2 

1415 

4537 

6141 

LINC 

1416 

IPODE 

1417 

0540 

0015 

hta 

1420 

0541 

1620 

BSE  I 

/TURN  ON  RELAY  0. 

1421 

0542 

4040 

4040 

1422 

0543 

0014 

ATR 

1423 

0544 

1020 

LOA  1 

1424 

0545 

4552 

UACON 

1425 

0546 

0640 

LOF  0 

1426 

0947 

1040 

STA 

/START  U/A  CONVERSION  PROCESS. 

1427 

0550 

2205 

v E C CL  K 1 200D 

1430 

0551 

6275 

JMP  TAPE 

1431 

PMOOt 

1432 

4552 

6141 

DACON, 

LlNC 

/ 0/A  CONVERSION  BEGINS 

1433 

lmooe 

/MERE. 

1434 

0553 

0067 

SET  1 7 

1435 

0554 

1602 

CHAN 

1436 

///////////////////////// 

1437 

0555 

0045 

SNS  5 

/THIS  COOING  ALLOWS  THL 

1440 

0556 

6563 

JMP  .*5 

/OPERATOR  TO  USE  SENSE 

l «4 1 

0557 

1020 

LOA  I 

/SWITCHES  5,  4,  ANO  3 TO 

1442 

0560 

0001 

1 

/CONVERT  CHANNELS  12  • 15. 

75 


1443 

0561 

1140 

ADM 

144a 

0562 

0007 

7 

1445 

0563 

0444 

5NS  4 

1446 

0564 

6571 

JMP  ,*5 

1447 

0565 

1020 

LDA  I 

1452 

0566 

0002 

2 

1451 

056  7 

1140 

ADM 

1452 

0570 

0007 

7 

1453 

05  71 

0443 

3NS  3 

1454 

0572 

6577 

JMP  ,*5 

1455 

0573 

1020 

LDA  I 

1456 

0574 

0004 

4 

1457 

0575 

1140 

ADM 

1460 

0576 

0007 

7 / 

1461 

luiiniuniinnuuiu 

1462 

0577 

1027 

LDA  I 7 

1463 

0600 

0500 

IOB 

1464 

0601 

6551 

6551 

1465 

0602 

1027 

LDA  I 7 

1466 

0603 

0500 

IOB 

1467 

0604 

6552 

6552 

1470 

0605 

1027 

LDA  I 7 

1 «7 1 

0606 

0500 

IOB 

1472 

0607 

6553 

6553 

1473 

0612 

1027 

LDA  I 7 

1474 

0611 

0500 

IOB 

1475 

0612 

6554 

6554 

1476 

0613 

1027 

LDA  I 7 

1477 

0614 

05  00 

IOB 

1500 

0615 

6555 

6555 

1501 

0616 

1027 

LDA  I 7 

1502 

0617 

0500 

IOB 

1503 

0620 

6556 

6556 

1504 

0621 

1027 

LDA  I 7 

1505 

0622 

0500 

IOB 

1506 

0623 

6561 

6561 

1507 

0624 

1027 

LDA  I 7 

1510 

0625 

0500 

JOB 

1511 

0626 

6362 

6562 

1512 

0627 

1027 

LDA  I 7 

1513 

0630 

0500 

IOB 

1514 

0631 

6563 

6563 

1515 

0632 

1027 

LDA  I 7 

1516 

0633 

0500 

IOB 

1517 

0634 

6564 

6564 

1520 

0635 

1027 

LDA  I 7 

1521 

0636 

0500 

IOB 

1522 

0637 

6565 

6565 

1523 

0640 

1027 

LDA  I 7 

1524 

0641 

0500 

IOB 

1525 

0642 

6566 

6566 

1526 

0643 

1020 

EXIT, 

LOA  I 

1527 

0644 

0001 

1 

1530 

0645 

5561 

3TC  3m2 

1531 

0646 

0002 

KDP 

1532 

PMOOfc 

1533 

4647 

6135 

LL3A 

1534 

4650 

4500 

WEST 

1535 

LMODE 

1536 

0651 

1000 

4HITFL, 

LOA 

1537 

0652 

0000 

0 

1540 

0653 

4705 

3TC  tXlTl 

1541 

0654 

0802 

POP 
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1542 

PMOUt 

1 54  J 

4655 

7300 

EL*  CLL 

1544 

4656 

1133 

TAD  COMNOF 

1545 

4657 

52  7 4 

JMP  LOAD 

154t> 

LMODE 

1547 

066? 

1000 

WHIT, 

LDA 

1550 

0661 

0000 

0 

1551 

0662 

4705 

STC  EX  IT  1 

1552 

0663 

0002 

POP 

1553 

PMODE 

1554 

4b64 

6201 

LUF  0 

1555 

4665 

7 340 

CLA  Cll  CMA 

155b 

4666 

1131 

TAD  AOR 1 

1557 

4667 

3526 

UCA  I TAPEM 

1560 

4670 

1514 

TAD  I RDSI2 

1561 

4671 

7041 

LI  A 

1562 

4672 

3527 

UCA  I T APE 2 2 

1563 

4673 

1134 

TAD  COMND 

1564 

4674 

6711 

LOAD, 

mTCR 

1565 

4675 

5274 

JMP  .-1 

1566 

4676 

6716 

MTLC 

1567 

4b77 

7200 

lla 

1570 

4700 

6721 

MTTR 

1571 

4701 

5300 

JMP  ,-l 

1572 

4702 

1130 

tad  Koeie 

1573 

4703 

6722 

MTGO 

1574 

4704 

6141 

LINC 

1575 

lmooe 

1576 

0705 

0000 

EXIT1, 

0 

1577 

0706 

1000 

REED, 

LDA 

1600 

0707 

0000 

0 

1601 

07l« 

4740 

STC  EXIT2 

1602 

0711 

0002 

POP 

1603 

PMODE 

1604 

4712 

1105 

TAD  TFLAG 

1605 

4713 

7450 

SNA 

1606 

4714 

5312 

JMP  .-2 

1607 

47  15 

7200 

CLA 

1610 

4716 

3105 

UCA  TFLAG 

1611 

4717 

6201 

CDF  0 

1612 

4720 

7340 

CLA  CLL  CMA 

1613 

4721 

1131 

TAO  ADR  1 

1614 

4722 

3526 

UCA  I TAPEM 

1615 

4723 

1514 

TAD  I RDSIZ 

1616 

4724 

7041 

CIA 

1617 

4725 

3527 

UCA  I TAPEW2 

1620 

4726 

6711 

MTCR 

1621 

4727 

5326 

JMP  .-1 

1622 

4730 

1132 

TAD  COMNDW 

1623 

4731 

6716 

MTLC 

1624 

4732 

7200 

CLA 

1625 

4733 

6721 

MTTR 

1626 

4734 

5333 

JMP  ,-l 

1627 

4735 

1130 

TAO  K0010 

1630 

4736 

6722 

MTGO 

1631 

4737 

6141 

LINC 

1632 

LMOOE 

1633 

0740 

oooo 

EXIT2, 

0000 

1634 

PMODE 

1635 

4741 

6706 

MAGTAP, 

MTRS 

1636 

4742 

6/12 

MTAF 

1637 

4743 

3104 

UCA  STATUS 
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0172 
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/I 

2475 

1550 

0136 
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/I 

2476 

1551 

0012 

12 
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2477 

1552 

0176 
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1553 
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! 

2501 

1554 

0157 
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n 
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1555 
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STAS, 
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2503 

1556 
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OIVSOR, 

0 

2504 

1557 

0100 

K 1 00 , 
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2505 

1560 

0000 

SWITCH, 

0 

2506 

1561 

0000 
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0 

2507 
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1 
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1563 
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2 
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1564 
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4 
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1565 
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0 

2513 

1566 
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0 

2514 

1567 
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0 
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1570 

0000 

PILHI, 

0 
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0000 
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0 

2517 
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0000 

TEMP, 

0 

2520 

1573 

0000 

TEMP4, 

0 
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1574 
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0 
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1575 

0000 
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0 
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0 

2524 
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0 
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0 
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0 
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0 
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0 
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0026 
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322 
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/O 
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/U 
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0240 

240 

/ 
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/ 
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/ 
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/ 

2555 
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/N 
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/O 
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0046 
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0047 
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0 
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0631 
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0632 
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2574 

0633 

0240 
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2575 
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/P 
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/A 

2577 
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2623 
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APION 
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ATQEBC 
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BlKOK 

4767 
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5b02 
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CHEKF 
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0420 

CLOCK 
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COMNOF 
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CONVRT 
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COPY  1 
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DACON 
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oatflo 

5063 
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4022 
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DFLO 

5337 
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DIVSOR 
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EBCDIC 
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4705 
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4740 
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EXIT# 

5354 

EXITS 
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EXIT6 

2035 

EXIT? 
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EXIT9 

5051 
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5050 

FILCNT 

5571 

FILHI 

5570 
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FIND 

5270 

FINISH 

5142 

flag 
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FRAME 
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5567 
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HEAOR 

6050 
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HIGRUP  556b 
IGROUP  5565 
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0443 
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LOBlOK 

0112 

BAGTAP 

4741 

BCMAN 

5601 

MCLA 

6702 

MES51 

7000 

MESS4 

704b 

MGTAP2 

5011 

MTAF 

b7  12 

MTCM 

6714 

MTCR 

bill 

MTGO 

6702 

BTLC 

6716 

MTRC 

6724 

MTRS 

6706 

MTSF 

6701 

MTTR 

6721 

NOE  X 

4242 

NEWFIL 

410b 

NOPRTY 

4441 

NUMBER 

0444 

NXTCHR 

6064 

NXTDGT 

204b 

NXTTST 

5230 
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bb62 

PAK 

4344 

PARAMS 

4176 

PARITY 

6630 

POL 

026b 

PF  LAG 

0106 

POINTC 

0124 

POINTN 

012b 

POINTR 

0223 

PRINT 

447b 

PUSHJ 

6760 

QR 

7063 

UU 

7000 

RCDSIZ 

bb74 

RCDSKP 

5b7b 

POSIZ 

«114 

REED 

4706 

REETAP 

0116 

refil 

4340 

RENTER 

4260 

REST 

4b00 

RESTI 
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RETURN 
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REWIND 

6021 

rfld 

6773 

RSTk 

6774 

RTAP 

4310 

RVEC 
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RwU0 

5050 

RwUl 

5053 

SEARCH 

5207 

shlv 

67  70 

SRVICE 

0055 

SSTK 

67  76 

STAS 

5555 

STATUS 

0104 

SvEC 
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switch 

5560 

SHI 

0123 

SHU 

5561 

table 

5355 

tablEi 

5455 

TAPE 

4075 

TAPER! 

0126 

TAPEA2 

0127 

TBLAOR 

5117 

TEMP 

5570 

TEMPI 

2057 

TEMP2 

2052 

TEMPS 

5141 

TEMP4 

5573 

TEM3 

0135 

TEN 

0113 

TFLAS 

0105 

TTY 

0240 

Two 

5563 

TTPOUT 

5120 

UOAOUR 

1273 

UOAORS 

1310 

JOARNO 

1220 

UOBOX 

1304 

UOCNT 

1277 

UOC  ON  1 

1311 

jooo 

1230 

UOGET 

1306 

UOH I uH 

1300 

UOHSUB 

1302 

UOLOOP 

1272 

UOLOW 

1321 

UOLSUB 

1303 

UOOuT 

1046 

UOPRNT 
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JOPTM 

1307 

UOSPCE 

1274 

UOTEML 

1305 

uotho 

1276 

UNO 
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WAIT  4410 
WRIT  4660 
WRITAP  011b 
WRITFL  465 1 
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